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This handy routine allows you to 
set the default device number 
totape or disk for all loading 
and saving operations . Once it is 
set, you can then just type in 
LOAD "filename - you don't even 
need the final quotes . 

If a machine code program is to 
be saved or loaded then the 
reset { SYS 720) and normal syntax 
will have to be used (eg ,6,1), 

The program works by redirecting 
the load and save vectors at 
816and 818 to this new routine at 
679. To set the default to 
disk, use SYS 679 and to reset it 
to tape use SYS 708. 



1 0 REM ************************** 
20 REM* DEVICE SET * 

3 0 REM ************************** 
40 REM * SYS 679 :- DEFAULT TO 
DISK * 

50 REM * SYS 708 :- DEFAULT TO 
TAPE * 

60 REM * SYS 720 RESET TO 
NORMAL * 

7 0 RE jyj"^*^ ******* * * * * * * ******** * * * 

60 FOR L=679 TO 758: READ AlPOKE 
L , A : D=D+A : NEXT 

90 IF D<>8969 THEN PRINT " DATA 
ERROR" : END 

100 DATA 169,8,141,230,2,141,241, 

2,169,22 9, 141,48,3, 169,240, 141 

110 DATA 50,3,169,2,141,49,3,169, 

2,141,51,3,96,32,175,2 

120 DATA 169,1,141,230,2,141, 

241,2,96, 169, 165,141,48,3,169,244 

130 DATA 141,49,3,169,237,141,50, 

3,169,245, 141,51,3,96, 169,8 

140 DATA 133,186, 169,0, 133,10,76, 

165,244, 169,8,133,186,76,237,245 
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The problem with the Commodore 64 
operating system is that alisted 
program shoots up the screen too 
quickly to read. This leaves the 
user having to laboriously list 
lines in groups of about ten. 

This program solves the problem 
by allowing the user to pause the 
scrolling program by pressing the 
spacebar. The routine is placed 
high in the 49152 block of memory 
at 53200 and therefore leaves 
plenty of scope for using 
programs which call up other code 
routines in this area. 

Type in the program and save it. 
When you think you may wish to 
use it, load it in before doing 
anything else with the computer 
and RUN, It will automatically 
execute itself so all you then 
have to do is to remember to 
press the spacebar. 



10 C=0:REM LIST STOP BY STEPHEN 
ELMER 

20 FOR 1=53200 TO 53245 : READ 

A:C=C+A:POKE I, A: NEXT 

30 IF C<>6879 THEN PRINT "ERROR IN 

DATA" : END 

40 SYS 53200 

50 DATA 169,219,141,38,3,169,207, 
141 

60 DATA 39,3,96,72,165,204,201,1 
70 DATA 208,24,165,197,201,60, 
208, 18 

80 DATA 201,60,208,250,165,197, 
201,60 

90 DATA 240,250,104,76,202,241 
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FX/Tthin these pages you will find 
WW information to help any ser- 
ious C64 or CI 28 user to get the best 
from their computer. Utilities for 
programmers and other computer us- 
ers are backed-up by an informative 
technical section and an extensive 
hints and tips guide. 

If your forte is Basic program- 
ming, the GTX Compiler can convert 
a program to run at over 30 times its 
normal speed. 



A program also needs style if it is 
going to impress anyone and the 128 
Font Editor and the Message Con- 
struction Kit for the C64 provide easy 
routes to adding a ^designer look' to 
your routines. 

Instead of attaching a printer or 
disk drive to the serial port, using it to 
link through to another C64, C128 s 
Plus 4 or CI 6 can add a new dimen- 
sion to games playing. With the Bus 
Route 64 program you possess a key 



which opens up the world of interac- 
tive, two player games, 

On the technical side there are 
memory maps of the CI 28, €64 and 
1 541 disk drive with detailed tables of 
many more vital statistics in a quick 
reference format. 

The Your Commodore Serious Users 
Guide is more than a magazine, it's a 
reference guide that deserves a place 
beside every Commodore 64 or 1 28. 
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5^>u may have noticed that our 
listings are free of those horrible little 
black blobs which send you searching 
around the keyboard for a suitable 
graphic symbol. You may also have 
noticed the funny numbers by the side 
of each line of the listing, Fret no more, 
it's all part of our easy entry aid 

Instead of those nasty graphics and 
rows of countless spaces in PRINT 
statements and strings we use a special 
coding system. The code, or 
mnemonic, is always contained in 
square brackets and you'll soon learn 
to decipher their meanings. 

For example, [SA] would mean 
type in a Shifted A, or an ace of spades 
in layman's terms, and [S A 10] would 
mean a row of ten of these symbols- 

[S+2] means hold down the shift 
key and press the plus key twice. It 
doesn't take a great leap of logic to 
realise that [C+2] means exactly the 
same thing except that the Commo- 
dore key (bottom left of the keyboard) 
is held down instead of the shift key. 

If more than two spaces appear in a 
statement then this will be printed as 
[SPC4] or, exceptionally, [SSPC4], 
Translated into English this mtans 
press the spacebar four times or in the 
latter case hold the shift key down 
while you do it, 

A string of special characters could 
appear as: 

[CTRL N s DOWN2,LEFT5,BLUE, 
F3.C3] 

This would be achieved by holding 



down the CTRL key as you press N + 
press the cursor key down twice, the 
cursor left key five times, press the key 
marked BLUE white holdingdown the 
CTRL key, press the F3 key and, 
finally hold the Commodore key down 
while pressing the number two key (C2 
would of course make the computer 
print in brown). 

Always remember that you should 
only have a row of graphics characters 
on your screen with no square brackets 
and no commas, unless something like 
this appears: 
[SS],[C*] 

In this case the two characters should 
have a comma between them. 

On rare occasions [REV T] will 
appear in a listing. This is a delete 
symbol and is created by entering the 
line up to this mnemonic. Then type a 
closing quotation mark (SHIFT & 2) 
and delete it. This gets the computer 
out of quotes mode. H old down CTR L 
and press the number nine key 
(RVSON), type the relevant number of 
reversed Ts and then hold down 
CTRL and press zero (RVSOFF). 
Next type another quotation mark and 
delete it again. Now finish the line and 
press RETURN, 

A list of these special cases is given 
in the table but remember that only 
one of these mnemonics will appear 
outside of a PRINT string: the symbol 
for pi. This may appear when its value 
is needed in a calculation so this may 
look something like: 



;CO=2*[PI]*R: 

Ignore the square brackets and just 
type in a shifted upward pointing 
arrow (ie. the pi symbol), 



PfVODFAMs SVWTfiSC CHECKER 



5 K£n SYTAX CHECKER - ERIC DDYLE 

10 BL-iO :LN-7Q : SA-48155 
50 FOR L-0 TO BL : CK-0 : FOR 0-0 TO 
15 

30 READ A: IF *>aSSTHEMPRINT ,p NUnB 
ER TO LSRGE";LN+CL*lO):ST0F 
40 CX-CK + fr:PD!fE 5A+l*lB+Q,fls*lEXT 
0 

50 READ R:IF A><CX THENPRI NT N ERR 

OR It* LIKE - iLN+CL* 103 : STOP 

GO NEXT L;SVS 4915?: NEW 

70 OflTR 173,5,3,501, 1&£, £03,31 , 1 

£0,163.9. 141 ,35,508, 141,33,508,1 

647 

80 DAT* 169,7,141,134,5,169,13,3 
5,510,?55, 169,64,141,1,3, 163, IBB 

a 

30 DATA 185,141.5.3.08,86,150,16 
3,154,141.4.9.168,165, .141,5, 1 BEE 

100 BftTfl 3,169, 11. 141 , 134, ?, 111, 
35 , 2 □ fi , 1 63 ,Bj 141 ,33, 50B , 89 , 96 K I B 

as 

110 DATA 35,124,165,75,138,75,15 
5,75, IBS, 0,165 .50, 133, £54, 165, 51 
,1747 

150 DATA 101,554, 133,234.109, 

0 r 5 , 54C , 1 Q ; 69 . 554 , 1 33 , £54 . 535 > 1 B 
3, £346 

130 DATA 0,5, £40, 6, 54, 101, 254, 19 
3,554,535, SOB, £33, IBB, 1, 141,13*1. 
5134 

110 OATA 5,165.254.74,74,74.74.3 
5, 156, 185, 3£. 510, 555, 165,254.41. 
5054 

150 DftTft IB , 35 , 15E , 158 , 35 , BID, 55 
5.168, 13, 35, £10, 555, 1 BB , 13 , 35 , £1 
0 , 1395 

ISO DATA 555,158,7,141,134,5,104 
, 160 . 104 , 170 , 104 , 96 , 54 , 10B , 4B , £0 

1 , 1B3E 

170 DATA 53,16,1,36,54.105,7,95, 
0,0,0.0,0,0,0,0.403 

by Erie Doyle 
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Easy Entry C64 



Mnemonic 


Symbol 


Keypress 


[RIGHT] 






CRSR left/right 


[LEFT] 




1 


SHIFT & CRSR left/right 


[DOWN] 


i 


i 


CRSR up/down 


[UP] 






SHIFT & CRSR up/down 


[Fl] 






fl key 


[F2J 


i 


if 


SHIFT & fl key 


ffi 






f3 key 


[F4] 






SHIFT & f3 key 


[F5] 






f5 key 


[F6] 






SHIFT & f5 key 


[F7] 






f7 key 








CTJICT v. n 1, , 

arllr 1 oc i / key 


[HOME] 






CLR/HOME 


[CLR] 






SHIFT & CLR/HOME 


[RVSON] 


i 


1 


CTRL & 9 


[RVSOFF] 


i 


H 


CTR L & 0 



Mnemonic 


Symbol 


Keypress 


[BLACK] 






CTRL & 1 


[WHITE] 






CTRL & 2 


[RED] 


1 


U: 


CTRL & 3 


[CYAN] 






CTRL & 4 


[PURPLE] 






CTRL & 5 


[GREEN] 


J 

1 


i:: 

\ 


CTRL & 6 


[BLUE] 


: iz 


Hi 


CTRL & 7 


[YELLOW] 


CTRL & 8 


[POUND] 






£ 


[LARROW] 








[UPARROW] 






t 


I PI I 






Lirlir I ot [ 


[INST] 






SHIFT & INST/DEL 


[REV T] 






see text 


[Cletter] 






CBM + letter 


[Sleftef] 






SHIFT + letter 



Checksum Program 

The hexadecimal numbers appearing 
in a column to the left or the listing 
should not be typed in with the 
program. These are merely checksum 
values and are there to help you get 
each line right. Don't worry if you 
don't understand the hexadecimal 
system, as long as you can compare 
two characters on the screen with the 
corresponding two characters in the 
magazine you can use our line 
checking program. h 

Type in the Checksum Program, 
make sure that you've not made any 
mistakes and save it to tape or disk 



immediately because it will be used 
with most of the present and future 
listings appearing in Your 
Commodore. 

At the start of each programming 
session, load Checksum and run it 
The screen will turn brown with yellow 
characters and each time you type in a 
line and press the RETURN key a 
number will appear on the screen in 
white. This should be the same as the 
corresponding value in the magazine. 

If the two values don't relate to one - 
another, you have not copied the line 
exactly as printed so go back and check 
each character carefully. When you 
find the error simply correct it and 



press RETURN again. 

If you want to turn off the checker 
simply type SYS49152 and the screen 
will return to the familiar blue colours, 
You can then do whatever it was you 
wanted t o do and if this doesn't use the 
area where Checksum lies you can go 
back to it with the same SYS 
command, 

No system is foolproof but the 
chances of two errors cancelling one 
another out are io remote that we 
believe our listings are more reliable 
than any other magazine in the world. 
So get typing! 
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LISTING 




Mouse 




Type-in this listing for C64 mice and see how they run! 

by W I Sellers 



Tat 



he Ncos mouse included in the 
Commodore Connoisseur's Collec* 
tion is extremely good at its job. It 
has two operating modes and can act 
as a joystick emulator to make it 
widely compatible with commercial 
software, or in its standard mode, 
which allows much smoother con- 
trol. The main drawback is the weak 
documentation explaining how the 
mouse can be incorporated in your 
own programs. The following rou- 
tine enables you to read the position 
of the mouse from Basic. 

How It Works 

The mouse transmits its movement 
as an X and Y displacement. The 
program is a machine-code routine 
which receives the movement and 
assigns the values automatically to 
two Basic variables, DX and DY. 



The status of the left-hand button is 
returned in the variable FB. These 
variable names are created within 
the routine, so they don't need to be 
previously assigned, 

To use the mouse, switch off the 
normal function of the keyboard 
and call the mouse set-up routine at 
decimal 50003, The mouse-read 
routine at decimal 50000 must be 
called each time its position needs to 
be updated DX and DY contain the 
distance moved in the X and Y 
direction since the last time the read 
routine was called. 

For machine-code users, the sub- 
routine that performs the mouse 
read is at $C3A3 to $C42C with the 
X and Y displacements and button 
status stored from $C42D to $C42R 
The rest of the program is concerned 
with assigning the values to the 
Basic variables. 



In Use 

The program is in the form of a 
simple demonstration with the 
mouse used to move a sprite round 
the screen, Lines 470-920 form a 
subroutine that creates the machine- 
code routine and if s this bit that 
needs to be incorporated into other 
programs. 

You need to insert the mouse 
after the program has been started 
because the keyboard produces non- 
sense with the mouse in place. Save 
a copy of the program before run- 
ning it in case there are any mistakes 
that might lead to a crash. The 
RUN/STOP key is disabled by the 
program so that the program can 
only be stopped by RUN/ STOP and 
RESTORE being pressed 
simultaneously. 



Mi LQC- DEJECT 


LABELS 


LINE 


ID OdOO 




; PAGE ZERO LP BEL 5 


SO DOOO 






30 OOOO 


fcfltlE 


-t4S 


40 ODCO 


FlDDfi£SS 


*S47 


50 OK30 


SIGN 


-1GE. 


60 00OD 




; BASIC HDfl ROUTINES 


7D OOOO 




90 MOO 






SO oooo 


PINDUAR 


-4B0E7 


IOC OOOO 


CONUERTY7QFLP 


- tE3A2 


HO GOOD 


FLPTOnUn 




ISO OOOO 




■ 


130 0000 






140 OOOC 




]N/0UT ADDHE55E5 


150 OOOO 






ISO DHOD 


PflDDLEX 


"SD119 


170 OOOO 


PGRT2 


-SDCOD 


190 OOOO 


DDR2 


-1DC0Z 


190 OOOO 


JCS1 


-SDCOD 


500 OOOO 


[CM 


-soneo 


BIO OOOO 


ERPll 


-40. COS 


520 OOOO 




-ftOEOF 


230 0000 


CRA2 


-*000£ 


£40 QODO 


CHEB 


-SDDOF 


250 OOOO 






eeo GOOD 







NER 


LOG. 


OBJECT 


LfiEELS 


LINE 






270 


OOCO 












2B0 


0350 






! DR5 50000 






BSD 














300 


C350 












310 


C3SD 






' ; junP I ABLE 






320 


C330 












330 


C3SD 


*tC5EC3 


RE*C 








340 


C353 


4C3QC4 


SETUP 


JMP IKITIPLIZE 






3S0 


C35G 












3E0 


E35B 






■MAIN ROUTINE TO 


fiEftO 


hDUSE 


370 


C355 






;PlND PUT RESULTS 


IN 3 


WHIABLES 


;hh:: 


f::9S& 






;DX, DY AND FH 






330 


L356 












400 


C35G 


B0A3C3 


START 


JSR MDJSEREflD 






410 


C355 












4EQ 


0359 






■DEAL U1TH DELX 






430 


C35S 












440 


C355 






LDfi DELX 






4S0 


::3Fir: 


A 244 




LDX I'D' 






4£0 


C35E 


A05B 




LDY ttT 






4 70 


0350 


£n75G3 




JSR STGREPGG 






460 


C3B3 












4: 3D 


C363 






iOEfiL w[TK DELY 






500 


0363 












sib 


C3B3 


PiD2EL4 




LDPi DEL* 






520 


0355 


A244 




LDX tt"D h 






mo 


C35B 


A05-3 




LDY !■¥' 
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LISTING 
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A5L A 


jDLI LiJDLr 


■ 


13QU uJLJ UR 


A5-L A 


--iK.. C JED 


; DE^L tilTK BUTTON' 


157(J C3L4 OA 


ABL A 


C7n pirn 
_ ■ ■_< _ JuL, 


i 


l_HU _ JL j L ." l_ : _ J J L _ : 


5TA DEL? 


can 1 — qcn inPTnW 


LDR button 


lOwv Li O 






i riv u'C-i 




c: FT BTT U 
J -Ll til 1 - 


500 C37I! m l i t ■? 


LDV # ' B ? 


16 ID C3EB 




D1U Li J/l C_' i Ul 3 


- _: _i "Trie r .-"t i — n 


tfir^rt nrR aTiPHTir 

i L JLiD ri <J Li iJ U l_ 


? no pnPTS 

J-LIIT . . . r", L tZ 


620 C377 


u i ■_- 

K 1 ^ 


iE30 C3CB 0310 


UUrl F?1U 


OJU Li J f ■ QU 


i f.— n nrn Finrvinp 

iu jU l jll yju jul 


SJ** runic 


540 C379 


i HiJLF 1 1 l¥Ci lu -DIUnll rE_l_il_l ILJl_rll Un 






350 C37B 


1EE0 D3DD 


'PAU9E 50 OVCLES 


GEO C379 


i n — 1 Unj l i_ ■-■ r 1 1. . j fi_5[_ C- J rv ^ T 


If570 P"5nn 




5?0 D37B 


i 


LBBQ C3D0 AQD5 


i" n s 1 riiEW 

jj. »j a tr a v iJ 


EBD C37H 


JjJUJtt JtLp I ^ J t«(3 


l F^n i — qnp pnpfiPH 
i □ 3L> l Jul lul jl^ 


■J _ P. _ M _i _■ _ 


E30 037B 


i 


1700 C30S 




700 C37H 4H 9TnRFrtCC 


PHA 


i j . . i u.. . : i. ■ 


, lac. l L-Lui ru.ncL. t 


710 0379 9G45 


_i J, J. firn- L 


i t =<n PQnc 

1 i CU ! __3LJ3 




7BO C37B B44E 


^"""V MOPTnl 1 

□ i i rjni i_ _ 


n -7 i r "Die s% '"i run n 
1 f JU _ JJ_ HJLi JUL 


L-UFI . LP! L il 


730 £370 




1740 C3DB lTbOF 


flNO »iOF 


740 C37D 






DrA DlLX 


750 C37D 


j 


17BD C3DD BDCDD4 


5TR DELX 




LDfl HSFr 


1770 C3E0 




770 C37F iB 




1 /DU 1 3E.U 


fl T" i"i □ Q I T u 

■ f LLLRK QJ L ^ 


f '- ■- LJDL 


I 


1730 C3ED 




790 P'H An 




1HQ0 C3t-Q "DCODl. 


p Fiji HnwK 

LDR PtJfiTB 


HDD P3BC 

l_l l_H LH < J t_j L_i 


■ 


1B10 D3E3 Z3EF 


AMD tttEF 




Ten x" l ajtii i .-h. n 


1B£0 C3ES 3DD0DD 


ETA PORTE 


B3D C3B3 


i- 


*B1fl I - » —|- IT l~i 


i 


□ -JL 1 — -J LJ — 


I- ITT IT 1 F HTi np i— 1 1 ui u L r 

^ &ET RED DF DUnnY 


1BH0 D3EB 


i PAUSE 50 CYCLES 


PTV Li JCJ 




^ OCA r-fc r-i j-| 

ISaD L.3EB 


i 


o» j lj i i ej _s on 


. V. 0 


1@E0 D3EB A0D5 


LDY +1 S05 


fifin [ — 1R4 




la/U 1 at.fi crJc-h!.-t 


JSP PRU5E 


B70 C304 




1 Don r" T" I - 1 


a 


RRn nRH 

□ PLr 1 J LI L 




1H3L> C3ED 


: BET HIGH WYBBLE 


pLIM '"THLI 

wy L JDl 




1S00 E 3ED 




□00 C3S4 SB 


pi a 




J-LIR rUKLe 


gin -""gRg 




1 !3_U L .d r Ll (JR 


REL R 


920 C36S 


. Pkr&if'v H t pncTTri iq- 

i i_-fitt_*, jr rLiaiJLyt. 


la JU Li Jt 1 UR 


RSL A 


"930 C3B5 




l.: :.- L-drc OR 


y- lti .■■ 

RbL fl 


-■■■■■-9H0 !""t , h c . inns 


BPL SrI 


1 J_iU 1 3t J UR 


R9L A 


35n C397 


■ 


i he" 1 nru — ; n"Zi rr ll 
1 -Jt j L- J r T. □ U Lt L _ l 


SIR JJlL-Lr 


gen «~"gH7 




1H/U LJh / 




370 CSS? 


? 


1 3tfU L. Jr / 


■ C 1 C~ T D T T U 

; _fE. - l T 


590 L.3B7 13FF 


enp 11111111 


1 HsiU t..J|- f 




99(3 C393 A3 




lUu J LJr .' nDULLiL. 


i net unora 1 


1DD0 C3BA cs 


TNV 
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LTulU LiJrn L/jiU 


n oil i n 

UJTrl ■ I 1 1 '. 


1010 C3BB 3CA3E_] 


J5R LONUERTYIOFt-P 


CLLJcr<j L,iirL, uUUVULi 


31n rUn L C 


1030 C3fl£ 4C3El"3 


tnp cap 

■ ■ 1 1 . □ML. 


lu JU i jr r 




1Q30 C3B1 






. -Jfi -LT— LT|"i '/pi p-lT 
, l nd — li_ JU LiEI_il_L.L1 


104.5 C3S1 


■ Pntyjp""?T T>nLlTT]UP Ml IHRF'B 


Lu JU L_ _ J l l 




1050 C391 




pnRn r^FF snni; 


j_li _ n Jt>Li _i 


IDE 3 C331 Afl Sftl 






■ IT 17 a .n.| ir-r- 


1070 C3B5 EDR3B3 


T cr n PDriii if QI'VTnrr □ 

J_:K ygnvE KTTlQr L r 


-UL!.- L : J 1 




1DEQ (.395 A55E 


LDR SI EM 


r*h^n r^nw 


. nrT l nhi hiVD-Di r 

; r jJl.J LULU NYeBLE. 


1030 C397 49FF 


Uln « !i 1 1 1 11 J. J. 1 






I "ICO C333 B5EE 


3TA f- TEN 


CJ.1L 1 1 i. Ut MLlLILILIL 


i no u n 13 ~r 13 

luh runic 


HID C39B 




C 1 C " J LIU/ C jUF 


TNL itje-i- r 


1 1 E0 C39B 






□RR BELT 


1230 C33B 

* * M K_i _< i_F l_l 




? i un PMnp nnjsiT'jL 
C11L L ]uL U I . c ...... 


5TR 0EL¥ 


1 *4fl riDD nc.117 DAJ 

■J- iiLJ 1 — 3?D HLVt h aFie 


LDX ADDRESS 




i 


A A J -J L _ M T IS 


RODHESS+jJ. 


c 4 C3 lt L. t y 4~ 


D 1~ rh n DliTTPJ.! 

; JCE.RJJ CU L J L 4 


"1 f"'JL L" S-nTILLD-D 


JSR FLPTOHEn 


Cl/U LlUK 


: 


1 -. ■ U L Jrlcf 






LOR FRODLEK 


' iOJ L-JHl". 


i RETUR*f 


ciiyu t^ic tSFr 


CUP *l!FF 


-L J-jju l — Jhc 


3 □nri n|j4Ll rhITn 4 

CCUL LiT._T, UJU1 


BNE *1R1 


i ?nn riiP cn 

XC-JhJ L JHl du 


HT8 


33i Pll i l: 

^clU L41b 




131D f^fl^ 


^ROUTIIME TO READ HOUSE PQ51TI0N 


pppn ruiG 

_LLU L_ 3J.E3 


Lflf r LN fl Lr IsUTTUN .riie.j>SLD 


± ^ u JP- 


TLL 1 C 

CLTJU lj ± 1 □ 




1S3Q C3W3 


i 

; L31 5RBLE I NTE RRuP T5 


•CcItU L.T'J.q 


. ^ V T □ ■ 1 c - V -|- ILIDTDI IPT IK1LI 

LaKJr NEXT . N j7 RUL.T l UN 


i pun r , "3ft , a 


33Cfl rui c 
CCD L 1 L 11 L 




1350 C3R3 


i 




BYTE 33C 


It - uu 1 -3 ■ Q IIL._I_3Z.KC.HLJ 


5EI 


gP7Q 0417 




iE'U _j _3 il J 




i_'_i_"L- LiT:*/ Rauu nKl. 


1 ni 14,4-1" -"i 
LJJR rrSLJ 


1__BC CSflH 


i STORE JN'DLIT HEGISr£pTE 


*??cin ruiD QH3 CPu 
ll JU M.Jr r 1 .1 


C — A nr- ITTPW 


x i— — 1 ■ __ir c 


zpiinn puj-ir* 1 




— LrJn J njJULiUL- 


LBR PDEfT3 


<JJ>CJ L-TlLr 


Drrnura r f.i .' rs- it ncr 1 t pttttjc - 
, tV LLuUIH LNi' LhJl rrtLi 1 ^> . L K\s 


1 J 1 U - 31- i □ 


PHfl 


2350 C41C 


\ 


j r~i_iR cinr , _'rir- 

- 'CJ L JHu M_JL. .11. 


LDR DDR2 


■"in—.,-*, i^u + 1" nin 
•JJ3i_ L.J... :::J 


Ptrft 


1330 C3fl0 4B 


PWfi 




ETA L UitS 


• • ■ ' Li -J n l_ 


■ 


•"i — ll - f-. i>"- 1 i ■ i I'll 

a3=aC C4P0 b3 


PLA 




;SjlT BIT 4: TO OUTPUT 
■ 


3-rf. n, i -.j. flr/lrtlf^ 


ETA FORTE 


i iRn nfl" 


S37D C4E4 


i 


1370 r'^-an am'"- 


LDA rts:-] 


5330 D4E4 


[ENABLE INTERRUPT9 AND PETgPH 
• 


13BD C3fiE 9D0EDC 


&TR DDR 3 


— | ~i i — i |-. r Jiigri.i 

l.'.JL.I.. 1-434 


X — Li 3D 1 




2400 04E4 5B 




14DG C3B1 


i CLEAR BCT 4 


nil t f-i f' i ■ -"i #^ if-a 
2H1D L.4i J -n h.. 


RT5 


1410 C3B1 


24E0 C4EB 




1430 C3S1 flUOQDC 


LDP PDRT3 


£430 C4ES 


■ROUTINE TD PAUSE Y * 10 CYCLES 


1430 C3BH £SEF 


AND *5E~ 


E440 C4EB 




1440 LT3BB BDDQDC 


5TP PDRT3 


3450 C4BS Efl FRU5E 


NOP 


1450 C3BS 




E4B0 C4E7 EA 


HOP [ 


1450 E3B9 


'frube bo cycles 


3470 C4£B EA 


NOP 


1470 C3B3 




E4B0 C439 HV-. 


DEY 


14B0 C3B3 A DOS 


LDV ttlQB 


2430 C43A DOFA 


BNE PAUSE 


1^90 C3BB B0SBC4 


JSP FRUBE 


3500 C45C 60 


RTS 


1300 EZ3BE 




35 ID C4ED DO DELS. 


r BYTE 0 


1510 C3BE 


"i EET HI0H hiVBELE 


3530 C43E 00 0ELY 


.Byte d 


1330 C3BE 




353D C4EF DO BUTTON 


.BYTE 0 


1530 C3BE flDOODC 


LDA PORTS 


3940 C43D 




15-40 C3C1 Oft 


ftSL A 


3550 C430 


; TNIT [ ALEZE 10U5E DEADER 
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INITIALIZE 



LENEA LDL ■ OBJECT LABELS 



25SQ MO 

C130 
SSBCl CH3Q 7B 
EEOO 1431 

£&EQ Mil 
ES3Q A97F 
<?G40 SDODCC 
C43B aDOBDD 

E5BC 

S£7Q CH3S 
2GBD C4?3 
EB30 C*l39 «9FF 
2700 C4.3H SDQSnC 
S71D CH3E A37F 



LIHE 

; :i : SABLE INTERRUPTS 
BE I 

■ CLEAR INTERRUPT MASKS DM CIAS 

LDA #I7F 
STA 1CH1 
STA icse 

SET PQRr TD □U7PUT 



LDA *fFF 
STft DSPB 
LEA *I7F 



LINE Hi LOC OBJECT LAB E LB 



E7ED 
97 30 
E74:t> 

£760 
£77ff 
5790 
E7BD 
■■■h:::j 
BB10 
i^AcfO 
■?G30 
BB40 
Pfl!=3 
BB6Q 
2@7Q 



C440 
CH43 
C4*t3 
Cf43 
C443 
CTtS 
C44Bi 
CTlB 
DtHE 
C451 
ClSl 
E451 
C451 
DISS 
C4B3 
C433 



A30B 
Hl.lDFllf: 
@ PDF DC 

Bcorcu 

BOOfF DO 



UlO 



LINE 

STA PORTB 

|SEI TIMERS TD BEFPULT UALUES 

UDft #SQfl 

STA CRA1 
STfi C»B1 
STA CRfl2 
STfl CRBS 

■ENABLE INTERRUPTS AWB RETURN 

ELI 
R75 

'-END 



PROGRAM : MOUSE! MANAGER 



05 10 REM MOUSE CODE *-THlS IS E 

SSENTIAL IP THE SAUE ROUT I ME 
IS USED! ! ! ! ! 
CC 20 REft LIMES 10^70 CAN BE OM 

ITTED IF VOU DON'T WANT TO S 

AJE THE CODE 
02 30 F0RA-0T062:READX:N£XT:G0S 

UB 550 

7A 40 P0KEig3 1 B0:PDKEI94, 195:PD 

KE174,93rPQKE175 P 136 
□A 50 POKE 1B7,7]F0KE1BB,B 
17 GO POKE 1B3,10]FOKE 186 , B : RE 

M POKE 106,1 FDR CASSETTE 
53 70 POKE 1B5, O : 5YS62954 
1A BO REM HOUSE MANAGER DEMO FR 

OBRAfl 

52 90 REM CC5PPVRIEHT 1307 WpI- 

5ELLEB9 
7fl 100 REM CLEAR SCREEN 
Al 11D FRINI"lXLE]POKINS IN DAT 

A .... * 

BE 1E0 REM POKE IN SPRITE DATA 
11 130 RESTORE : FQRS m 932T0B34 : RE 
ADA : PDKE532B0 , A : POKES NEXT 

99 140 REM POKE IN MACHINE CODE 

35 150 GDSUB550 

1C ISO PRI NT" LCLR3 INSERT MOUSE 
IN JOYSTICK PORTS n 

51 170 PRINT"CD0WN3AN0 PRESS <S 
FACE> WHEN READV" 

BE ieO GETAS: IFAE«" "THEN1B0 
9F ISO PRINT Jh C OLR] " ; : P0KES3281 , 
0 

CI EDO REM INITIALISE MOUSE REA 
□ ER 

04 210 3Y550003 

52 220 REM INITIALIZE SPRITE 0 
45 £30 FDKE2040 , 1 3 

FE 240 U-53248 
E7 250 FQKEU+21 ,1 
B8 260 REM INITIALIZE POSITION 
CI 270 X-1B0; Y-100:C-0 
FD 590 REn READ MOUSE 
CC 230 SYS500DO[PRINTDX S DY 
EC 300 REM PX-X CHANGE DY-Y CHA 
NGE 

3B 310 REM FB-1 IF PRESSED 

70 320 X-X+DXi Y-Y+DY 

3S 330 HEM CHECK X AND Y LIMITS 



C3 



7D 



OG 340 IFX<GTHENX«0 FF 
10 350 IFX>511THENX-511 
FA 350 IFY<0THENY*O 

370 IFY>255THENY-255 

44 380 IFC>255THENC=0 
EG 330 REM CALCULATE X VALUES 

70 400 X2- 1 NT< X/256 > i X1«X-25G*X 25 
2 

SC 410 C=C*FB: IFC=E5BTHENC-0 54 
SB 420 PDKEtJ „ XI : PGKEU + 1 p Y ; POKEU 

IF 430 IFCCAND153-0THENC-C+1 

C7 44C PCKEU+3S.C Sft 

75 450 GDTOBBO 

45 460 REM SPRITE DATA Al 
FB 470 DATAO ,0,0,0^,0,0,0 

DG 460 OATA0 3 0,0, 0,0, 0,0,3 4D 
El 490 DATflO.GjEB.Oj £8,60,0,30 
12 SQO OATAIBE, 34, B3, 127, 1G£,2S 46 
5,127,255 

53 510 DATA255,124 S 73 P 31 P ISO p 12 3B 
7,15, 112 

05 520 DATA52,'7,4B,20,6 P 1S P 0.4 BO 
4B 530 DATABpO.B.Q^^.O.O 
20 540 DATAO.0,0,0,0,0,0 FA 
S5 SSO REM POKE IN MOUSE READER 

ROUTINE 05 
87 5B0 REtl FROM SC3S0 TO SC452 
31 570 D-50000:L-B00 H 
F4 530 T-0 

AO 590 FORX-1T0S 05 

17 600 READA; IFA— ■ 1THEN650 

FE 610 POKED a A:D-D+l:T*T+A D3 

70 BSO P0KE532BO , A ; NEXT 

SS G30 R E AO A a I FA*- 1 THEN660 F3 

FC B40 IFTOATHENPR INT "ERROR IN 

LINE * i L ] END EB 
Fl BSD L-L+10: GnraBBO 
□ A SGO IFnoSOSSB+lTKENPRINP'AD OE 

DRESS ERROR ":END 
2E B70 RETURN 

26 680 DATA76 , 85 p 195,75,43, 13B , 

32,153,372 FH 
40 690 DATA135, 173,45, 13B, 152, 5 

8,160,86,1087 BE 
SO 700 DATA32, 120, 173,45, 18 

6,162,66,332 EF 
7C 710 OATAieO.aS^ 32 4 120, 1S5, 17 

3,47,136,1012 3fl 
DE 720 DATA15E, 70, 160,66,32, 120 

,135,96,901 DO 
24 730 0ATA72, 134, OS ,132,70, 163 

,255,72,373 ^ 



740 DATA32 P 231, 175, 104, 104 , 1 
B, 10,73,746 

750 0ATA2SS , 153 , 200 , 32 , 162 , 1 
79,75,155,1257 

7E0 D AT A1S5, 153,32, 162, 179,1 
55, 102,73, 1075 

770 DATA25S, 133, 102,155,71,1 
64,72,32,835 

7G0 DATA212, 167,96,120, 173,0 
,££0,72, 1090 

790 DATA173, 2,220,72,155, 15, 

141*5,735 

500 0ATA22O, 173,0,220,41,239 
p 141* 0,1034 

BIO D AT A220, 160,8,32,38, 196, 
173,0,327 

820 DATA220,10 S 10 1 10,10,141, 
45, 13B,B42 

630 DATA173, 0,220, 9, IB, 141,0 
,220,779 

B40 □ATA1GD,5 K 32,3B, 135, 173, 
0,220, B24 

550 OAT A41, 15, 13,45, 186, 141, 
45, 156,632 

BBO DATA173,0,220,41,23S, 141 
P 0 P 220 P 1034 

870 DATA1G0,5,32 J 39,1SS P 173 p 
0,220 a B24 

880 DATA10, 10,10 p 10, 141 p 46 p 1 
36, 173,536 
BBO 0ATA0,220,3, IB, 141,0, EEC 
,150, 7BG 
300 DATA5, 32, 3B, 136, 173,0,22 
0,41 ,705 

310 DATA15, 13,43, 195, 141 , 45 , 
186, 173,826 

SEO DATAE5 , E12 , 201 , 255 , 203 , 1 
,44,163,1115 
330 DATAO, 141,47,135,104, 141 
,2,220,851 

340 DATA104.141 K 0 h 220 ? BB , 35 , 
E34,234, 1117 

950 DATA234, 135,208,250,36,0 
,0,0,924 
SBO DATA120,158, 127, 141, 13,2 
20, 141, 13,944 
370 DATA221 ,158,255, 141,2, 22 
0, 169, 127,1304 
300 DATA141, 0,220, 169, 0,141, 
14,220,913 

990 DATA141, 15,220, 141, 14,22 
1,141, 15,308 
1 000 D AT A22 1 , 55 ,56,-1 
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Sticky Cursors 




Here's an interrupt which gives a superior method of cursor control 



his is a utility to allow a joystick, 
plugged into Port 2, to emulate the 
cursor keys. The program is inter- 
rupt-driven and resides in an unused 
area of memory. It works by check- 
ing the status of po rt 2 every so often 
and when it finds that the joystick is 
not centred, the appropriate control 
code is inserted, into the keyboard 
buffer queue. 



The joystick will perform the 
following functions: 



PROGRAM: STICKY CUR3UR - CI 38 




FUNCTION 
Nothing 

Move cursor up a 
line at a time 
Move cursor down a 
line at a time 
Move cursor left 
(with wrap around) 



10 FUR P - ^BS4 TO 5lS£ 
£0 : READ X$ 
30 - POKE F a BECCX£) 
40 NEXT P 

1000 DATA 70^9,00,80,14,03^3,1 
3 s BD ? 15 , 03 3 56 3 SO , CE , Al , 13 , FG 5 03 , 

1010 DATA 03, SE T A1 ,13 a AO d 00 1 D 
CpBDpAE, 13.es, 10 5 003 34 i AD 1 Ae j 13 s 
29,01,00 

1050 DATA 0B 1 A9^F 1 3a s 4C a aC a 13, A 

D» AE a 13 ,29,0s, D0 I 06^9,^0, 3S,4C a 
8C, 13, AD 

1030 DATA AS, } 3 N £3 , 04 , DO B 06 p A3 , 5 
0, 3B, 4C r eC, 13, AD, A£ , 13; 29, OB, 
C0,AB f 51 

1040 DATA 38 t 4C a SC l l3 J flt] 1 flE > l3pE 
9 p 01 p DO, OB, AS, 91, lB a 4C 1 SC, 13, AD, 
A2,13,?9 

1050 Dftlfi OE.DOpOG, AB, 11 s 10 S 4C,B 
C, lS^D^S, l3*E3,04 l D0 l OB 1 ftS i 9D l 



POSITION 

Centred 
Up 

Down 

Left 

10GO DATA 13pAD,A^ 1 13 p S3 1 Q9pD0pB 

C 1 ^3 1 lD,lB l 4C T aC 1 13,3O 1 04 1 AE 1 lB J 
aB a FQ p a[] 

1070 DATA 4ft t D3 > A5 P fla i DD T 0a > E5,E 

0, 4C, 63,^,03, 03, FF, 01 ^F^O.na, 
FF a 4C,4S 

10BD DATA 14, aO,4E,OA 3 A9,AA,A0,1 

E , BO , 71 p 03 , ^0 , 9g p 09 „ EO , 3D , OA , 09 , 
80,4Q,i^D 

1030 DATA l4,20 a FO,03,EO,38, 10 £ 
0 p FS , 09 , 68 , 40 , E7 , OA p 38 , AS , 3B ED , 
0B + EO,HS 

1100 O^TA 3B.A5, 3fi, ED, 09, St^ 03, 3 

B, FO J 04,A9 J O5,eS,0C,EO 1 4E 3 0A 1 A8 1 
DO K AO , IF 

1110 DATA 60,71,09,20,10,13^5,0 

C, C9 S 05^0,03^0, 37,09^9,00^5, 
33, A4,3A 

1160 DATA 60,D5,FF 7 90 I 4F,44,30 I 0 
□ 



PROGRftN: STICKY "I. IP3HE - C5 L i 



□9 10 FOH T - 40B54 TO 40359 
FE 50 HEAD A 
S8 30 POKE Tj A 
9E 40 NEXT T 
71 5C SVS 40954 

E5 100 DATA I EO , 159 f 171 p 141 , 20 , 

3 IBS 159 
AE 110 DATA 141 , 21, 3, 9B P 159, 143 

, 133,55 

BB 120 DATA 159 , WB , 133 s SB , 33 , 3 

06, £54, 153 
DO 130 DATA 240,3,76,49,234,169 

,3 P 141 

33 140 DATR £54.159,173,0, ££0,1 

41,255, 159 
B4 150 DATA 41 , IB ( £08 , 3 , 7B , 43 , E 



34, 173 

21 130 DATA 255,153,41,1,203,5, 
189,145 

B2 170 DATA 76,54s, 153,173^55, 
159,41,8 

75 1B0 DATA 208, 5, 163, 17, 7G, E4£ 
, 159, 173 

E3 190 DATA E55 , 159, 41 , 4, 20B a 5 P 
159,157 

□2 EDO DATA 7B , E4E , 159 , 173 p 255 , 
199/41,6 

C7 810 DATA 20B,135pl6Bp£9pl41 fc 

119,2, 165 
C7 EEO DATA 198 5 EDB , E T £30 t IBB , 7 

6,49,234 
34 E30 DATA 1,127 



R ight Move cursor right 

(with wrap around) 

Fire and up Cancel insert and 
quote mode (C128 
only) 

Fire and down Clear from cursor to 
end of screen (CI 28 
only) 

Fire and left Clear from cursor to 
start of line (CI 23 
only) 

Fire and right Clear from cursor to 
end of line (C128 
only) 




Installing the C128 
interrupt 

Type in the Basic program (CI 28 
version), save and then run it The 
program will then be installed. Save 
the machine-code from 4864 to 
5122 as a binary file. 

Type SYS 4864 to run the pro- 
gram and the joystick will emulate 
the cursor keys. In future when you 
need the utility it can be loaded 
directly into memory from the bina- 
ry file and run by 
typing SYS 4864. 



Installing the C64^ y 
interrupt 

Type in the Basic program (C64 
version), save and run it The pro- 
gram will then be installed. Type 
SYS 40854 to run the program and 
the joystick will emulate the cursor 
keys. The extra functions available 
on the CI 28 version are not catered 
for because they are not included in 
the operating system. The program 
resides from 40854 to 40959, so the 
top of Basic memory wilt be lowered 
when the program runs. 





•2- 
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A host of useful suggestions to improve your 
programming prowess 



he Commodore 64 harbours 
many secrets deep inside its memory 
banks. Here are 64 of the best but 
delve around and you may find 
many more. AM the hints were re- 
vealed by poking and peeking 
around the memory. Some are old, 
some are new but all will improve 
programs and programming beyond 
your wildest dreams, 

Although these tips are princi- 
pally for the Commodore 64, the 
technical section will help you to 
convert many of them for the CI 28. 

1 High and low bytes in decimal 

The low byte is derived from the 

high byte calculation: 

HIBYTE = INT(location/256) 
LOBYTE - location - (HIBYTE 
* 256) 

2 DEC to HEX conversion 

10 INPUT "NUMBER IN DECIMAL" ; DE 



C: IFDEC>B5535THENFRlNr p TD0 BI6 
M s 0DTD1B 

£0 F-^SS; FDRA-1TG4; 

40 E)^D^ + 4e : IFD^>57IH£ND**D3;+7 
50 HXS-HXE+CHRStn^ 3 F-F/lG 
60 NEXT 
70 PRINT"S"HXS 

3 HEX to DEC conversion 

10 INPUT ''NUMBER IN HO'^HXS 

30 IF LEFTS CHXS, 15-"* "THENHXS- 

Rt6HTSCHX$,L-13:L-L-l 

4:0 IFL>4THEN 10 

S0 IFL<H:THEN HX5-"ffl s L-L+l 

s GCTO50 

60 F0RA-1T04: D-ASCCI1IDS<HX* 1 A, 
X>3-4B 

70 IFO9THEN0H3-7; IF □> 15THENF 
RINT "NUHBER ERROR" t GQTQ10 
BE DEC-DEC*1G + D - NEXT 
30 PRINTDEC 

4 Using ROM routines 

Locations 780 to 783 represent the 
A, X, Y and status registers respec- 



tively. By poking suitable values to 
the relevant location, the registers 
can be set before ROM routines are 
called. 

5 Douhle byte HEX to DEC 

10 INFUT 1d LGU BYTE LOCATION IN 
DEC 3 HAL" ; LDC 

E0 PDKE7ei p PEEJCCLOC3:REP1 BY 
TE INTO X REGISTER 
30 PDKE7B0 P PEEXCLOC+1D :REf1 HIO 
H BYTE IN A REGISTER 
40 SYS4BSe9;REf1 PRINT A & X *S 
DEC I HAL IN ASCII 

6 Sub routine 48589 

This is where the LIST routine goes 
to convert line numbers to decimal, 
It then prints the value to the screen. 
Use it for data maker programs or 
for any routine where a decimal 
number has to be printed in ASCII 
characters. The A-register carries 
the high byte value and the X- 
register carries the low byte. 
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7 Simulated PRINT@ command 

lfl PRUMT'ECLRIT 

20 ROW- 12: COLUMN- 15 

30 POKE £14 ? ROW 

413 POKE 5Il p E0LUnN 

50 SYS5373£ 

SO PRINT "HI THERE! " 

8 Alternative PRINT@ command 

10 PRINT Ph CCLR: " 

£0 ROW-12- CDLUMN-XB 

30 PDKE 7B1 , ROU ; REtl X REG 

40 POKE 7B2 p COLUMN : REM Y REG 

45 POKE 7B3 a PEEK < 783 ) AMD £54 

50 SVS50G34 

£0 PR INT "HI THERE ! H 

9 Finding the cursor 

A similar routine can also locate the 
cursor: 

10 PRINT B CPLR t DOWNS s RIGHTJ61" s s 
REH 6 ACROSS AND 6 DDMN 

£0 POKE 783, PEEK* 703!) Ml 

30 3Y5SBG34 

40 ROW-PEEK C 781 D 

50. CDLUriN-PEEJCC7SEJ 

G0 FRINTRDUI, COLUMN 

10 Code space 

Machine code routines are faster if 
they access zero page locations but 
the Basic operating system leaves 
very few possibilities. Locations $02 
and $FA to $FE (250-254) are nor- 
mally unused but take care when 
using cartridges because they some- 
times use these bytes. 

Location $FF can also be used 
but it is best to use this for transient 
values. 

Also in low memorv; $02 A 7 to 
$02 FF (679-767 can be used for 
small coded programs and disk users 
can access the cassette buffer at 
$0334 to $03FF (820-1023), Cas- 
sette users can only use $0334 to 
$033B (820-827) and $03FC to 
S03FF (1020-1023). 

$C000 to $CFFF (49 1 52-5 3247) 
is the coder's paradise, four kilo- 
bytes of protected memory which 
doesn't exist as far as the C64's 
operating system is concerned, 

1 1 Room at the top 

Extra protected space can be created 
by lowering the top of memory: 

POKE 5 5,0; POKE 56,128:CLR 

Location 56 holds the high byte 
and 55 takes the low byte value. In 



the example this gives decimal 
32768 (hex $8000), 

1 2 Raising Basle 

In a similar way the bottom of Basic 
can be raised: 

POKE 43, LPOKE 44, 1 6:POK£ 
4096 ? 0:CLR 

The location is the new start of 
Basic+l or 4097 ($1001). Location 
4096 ($1000) must contain a zero 
otherwise a syntax error will occur 
when the RUN command is used. 

13 Memory SAVE 

Once a machine code program has 
been poked into memory this rou- 
tine will save it: 

10 REtt FlLENfiHE 

15 FL-Q: LS-0: H5*1S*16 : LE-G :■ HE- 
I5*1S 

50 POKE 183 h FL 

30 POKE 1B7 j FEEJCC43>hhGiP0KE1SB 
pPEEKC^HJ 

4# POKE 133 , LS ; PDKElS4i t HS 
50 POKE 174 > LE:PDKE17S J HE-H 
50 FOKEie5,0;KO1 0 FDR DISK 
70 POKE IBB ¥ 0 e REM SECONDARY ADD 
RESS 

80 5 Y 565354 

The actual filename for the save 
should be stored where filename* 
appears and FL is the number of 
characters in the name. LS, HS S LE 
and HE are the high and low bytes of 
the code block's start and end 
locations. 

14 Adding programs together 

Frequently used subroutines can be 
added to a program in memory. 
First of all, PEEK locations 43 and 
44, noting down the values (usually 
one and eight). POKE 43, 
PEEK(45), and POKE 44, 
PEEK(46), to set the start of Basic to 
the end of the program in memory 
and then enter NEW. Next, load the 
subroutine as normal using ,D (rath- 
er than ,D s l) f where D is the device 
number. Finally, the original values 
can be poked back into 43 and 44, 

One word of warning, the line 
numbers of the appended subrou- 
tine must start af a higher value than 
the program in memory. Failing 
this, use a renumber routine on the 
program taking care with GOSUB, 
GOTO and ON commands. 



15 Directors tricks 

LOAD "$$*\8 only loads the header 
and Tree blocks' lines. 

LOAD "$A**\« will only load 
programs starting with the letter 
before the asterisk, 

LOAD "$*=S^ will load only the 
SEQ files. Similarly with P> U, R 
substituted for PRG ? USR orREL 
files can be selected, 

16 Scratching around 

To scratch all the files on a disk 
within a particular category (PRO, 
SEQ, REL, USR) use the form: 

OPEN l.B.lV'SO^F": 
CLOSE! 

17 Which device? 

To automatically sense, from within 
a program, the device which is cur- 
rently in use, DEV = PEEK( 1 86) will 
store the number of the last device 
used as a variable for use in file 
operations. 

IS Closing files 

To make sure all files are closed use 
the CLALL call in the Kernal with 
SYS 6551 1. This closes all open files 
but be careful if CMD has been 
used. Sometimes a mere CLOSE 
command leaves the screen editor in 
a confused state. To exit safely use 
the format: 

PRINT#4:CLOSE4 



19 Selecting a hank 

To point the VIC chip at a different 
block of memory : 

POKE 56578, PEEK(56578) 
OR 3 

POKE 56576. (PEEK(56576) 
AND 252) OR a 

Where *a s is 3 for the normal 
(default) bank from the start of 
memory to 16383, 2 for 16384 to 
32767, I for 32768 to 491 51 or 0 for 
49152 upwards. 

20 Moving the screen 

Relocate the screen position within 
a bank with: 

POKE 53272, (PEEK{53272) 
AND l5)ORb 

Where takes a value from 
Table 1 and the actual location is the 
bank location plus the ^ value 
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TABLE 1 


- Bank location values 






Start 




Start 


b 


Location 


b 


Location 


0 


0 


m 


8192 


16 


1024 


144 


9216 


32 


2048 


160 


10240 


48 


3972 


176 


11264 


64 


4096 


192 


12288 


80 


5120 


208 


13312 


96 


6144 


224 


14336 


112 


716S 


240 


15360 



21 Moving the characters 

To relocate the 2K. area from which 
RAM character information is 
takcni 

POKE 53272, (PEEK(53272) AND 
240) ORc 

Where 'c' has a value from 
Table 2. 



TABLE 2 - Character relocation table 




Start 


c 


Location 


0 


0 


2 


2048 


4 


4096 


6 


6144 


8 


8192 


10 


10240 


12 


12288 


14 


14336 



22 Relocating character data 

10 POKE 56334, F EE Kt 56334 3 AND 5 

54 

E0 POKE1, PEEK ANDES 1 
30 FDRA-BTD20H7 

40 POKE NEWLOC+A, PEEK C 53546} +fl 

50 POKEI^PEEKCIJDRH 

E0 PDKE5E334 S FEEKC5&334}DR1 

This routine cannot be stopped 
because the keyboard is disabled in 
line 10 + Substitute a value derived 
from Table 2 for *newloc\ 



23 GET with cursor 

10 GET A$:POKE 204,0:IF 
A$-*"THEN 10 

24 Display controls in PRINT 

POKE212J:FRINT"[CLRJ 
HELLO" 

25 Best hi-res location 

Set the VIC chip to Bank 4 and the 
screen to location 57344 (SEOOQ). 
The ROM doesn't have to be 



switched out because the screen 
looks 5 through it. A routine is need- 
ed to switch out the ROM if the 
screen needs to be FEEKed but 
POKEs can be performed with the 
ROM in place. 

26 Easy INPUT 

10 INPUT M DO YOU WANT 
TO SAY YES[RIGHT2] Y 
[LEFT3]";A$ 

27 Position in colour RAM 

PRINT PEEK(243) + 256 * 
PEEK(224) 

28 Position in screen RAM 
PRINT PEEK(209) + 256* 
FEEK{210) + PEEK(211) 

29 Switch screen off/on 

Off: POKE 53265. 

PEEK*53265)AND239 
On: POKE 53265, 

PEEKf 53265) OR 16 

30 Supervision 

When using screen routines use base 
addresses for the screen and colour 
RAM, CO-55296:SC=1024. This 
means that a POKE to the video can 
be colour co-ordinated: 

POKE SC+50,character;POK£ 
CO+50,colour 

31 Key detection 

PEEK location 653 to see if the 
SHIFT (value 1 X CBM (2) or CTRL 
(4) keys have been pressed. If two 
keys are held down at the same time 
the value found in 653 is the sum of 
the key values. For example, a value 
of five means that the CBM and 
CTRL keys are down. 

32 Clearing the key buffer 

Before detecting a keypress, make 
sure that the key buffer is empty by 
POKE 198,0. 

33 Filling the key buffer 
Loading from inside a program has 
its drawbacks. A better way is to 
place the loading sequence in the 
key buffer so that the next program 
loads as though the commands have 
been typed in. 

The buffer queue is located at 
631 and continues through the fol- 
lowing nine bytes. This means that 



only ten characters can be stored 
here as ASCII codes. A routine such 
as this would suffice: 

10 PRINT ri CCLR3LCEDI] "+CHRSC34}+ 
"2ULLT+CHRSC34} + H ,8, 1QDDWN43' 1 ; 
PR I NT "RUN" 

£0 FDKEG31 ,19; ( 13 : PDKEG 
33,13 

3® POKE 199, 3 

This would appear at the end of 
the first program and would load a 
program called ZULU, To save on 
buffer space, the commands arc 
written to a cleared screen. They 
have to be correctly spaced to allow 
for the on-screen messages that the 
LOAD routine displays. 

The buffer is poked with a 
HOME command to place the cur- 
sor on the top screen line and this is 
followed by two returns. Location 
198 has to be told that these three 
characters are waiting in the buffer. 

When the program ends the first 
return automatically executes the 
LOAD command and then the load- 
ed program automatically runs. 

A modified version of this could 
toad a series of machine code rou- 
tines and execute a SYS command 
at the end. With a ten character 
buffer there could be 9 returns 
stored; that means nine commands 
executed after the first program 
ends. 

34 List protect 1 

To protect a program from prying 
eyes use POKE 77 5, 2 00. This pre- 
vents listing and can be restored by 
poking the original value of 167 
back again. 

35 List protect 2 

Another protection method is to use 
a REM statement which contains a 
shifted L + When the program is 
listed it produces a syntax error after 
the statement. This is easily overid- 
den by listing the program and 
pressing the return key on the listed 
line. Using this method in conjunc- 
tion with the next method can im- 
prove this command. 

36 List protect 3 

A REM statement with a few delete 
symbols (reversed T) can create 
havoc with the LIST command. 
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To insert a delete symbol, type 
REM and then two pairs of inverted 
commas, delete the second pair of 
quotes. After the remaining set of 
quotes, press the insert icy (shifted 
INST/ DEL key) once for each char- 
acter of the current line which you 
want to hide, Next press the delete 
key the same number of times. 
When the program is LISTed and 
deletes will each erase a character 
which lies to their left. For example: 

10 SYS49l52;REM"[DEL13r 
REM[SL] 
would pull the second REM over the 
SYS command, making the line look 
and behave like a REM with a 
shifted L. 

37 Key repeat 

The only keys which will repeat 
when held down arc the cursor keys 
and spacebar. Poking a value of 128 
to location 650 makes all keys repeal 
but poking 64 instead will prevent 
any of the keys from repeating, 

38 Repeat delay 

If all keys are set to repeat, the gap 
between the first character appear- 
ing and the row of repeats can be 
altered by poking different values to 
location 65 1 . The maximum delay is 
given when the poked value is 255, 
causing a delay of around four 
seconds, 

39 UnNEW 

Accidentally NEWing a program be- 
fore it is saved does not mean that 
the program is lost forever. The 
easiest way to recover is to reset the 
line link vectors* rechain the pro- 
gram and restore the end of program 
pointer. 

One way to do this is to store a 
program at the top of memory. 
Enter the following line: 

POKE43 1 1:POKE 

44, 1 59; POKE 46J59:POKE 

40704 1 G:NEW 

This sets the start of Basic at 
40704 ($9F00). The following UN- 
NEW program can not be typed in 
and saved with ^.devj** where dev 
is 1 or 8 for tape or disk. 

£0 



3® NEXT: IFA-407S4THENEND 

35 ft-INTCB/5SB3 : B-B-A*556+3 

40 PQKES51 , B : FQKIic^5 p A 

50 PDKE44 1 B: PDKE5OS0, ESSiSVSHtE 

E91 :PDK£4S a PEEK C BSD : PDKE45 P P£l 

; CLE : ENQ 
G0 J FPEEK C A ) -0 GNQFEEK CA+l 3 -0 AN 
DPEEICC A+2D-0THENB"*A : A-49999 
70 RETURN 

The program will always load at 
40704 as long m the % V is added, 

When a program is to be restored 
after NEW, enter the line of pokes 
mentioned at the beginning of this 
section and load the UNNEW 
program. 

The program can now be RUN 
but it may take a while before the 
READY prompt appears again. 
When it does, the program will have 
been restored. 

40 Extending Basic 
When a Basic program is decoded by 
the operating system, it calls in the 
Basic lines for analysis in the input 
buffer starting at $0200 (512). Part 
of the decoding routine lies in RAM 
and this is where an extra routine 
can be wedged in. 

This routine is stored at $0079 
and looks like this: 

$0073 INC$7A 

$0075 BNE $0079 

$0077 INC$7B 

$0079 LDA $0201 

$007C CMP #$3A 

$007E BCS $008A 

$0080 CMP #$20 

$0082 BEQ $0073 

$0084 SEC 

$0085 SBC #$30 

$0087 SEC 

$0088 SBC #$D0 

$008A RTS 

A suitable break point can be 
created by moving CMP #$20 to 
$007C and BEQ $0073 to $Q07E, 
Location $0080 can now point to 
the new decoding routine (eg, JMP 
$COO0), 

The routine grabs a byte from the 
buffer and attempts to decode it. By 
using a prefix on all of the new 
commands, decoding becomes easi- 
er. The 6 at* symbol located next to 
the asterisk on the keyboard is a 
good prefix so the new routine could 
look like this: 

SCO00 CMP #$40 

SC002 BEQ $0012 



$C004CMP #$38 
$C006 BCC $C00B 
$C008 JMP SCO 11 
$C00B SEC 
$C00C SBC #$30 
$C00E SEC 
$C00F SBC #$D0 
SCO 11 RTS 

SCI 02 DECODE ROUTINE 
The decode routine can call extra 
bytes from the buffer with JSR 
$0073 until a colon is detected, 
After execution of the command the 
new routine should hand back con- 
trol to the normal operating system 
with JMP $0073. 

41 Setting up interrupts 

Once written, an interrupt routine 
can be called by: 
SEI 

LDA #$1F 
STA $DC0D 
STA SDD0D 
LDA $DC0D 
LDA $DD0D 
LDA #$low byte 
STA $0314 
LDA #$high bvte 
STA $0315 
LDA #$01 
STA$D01A 
CLI 
RTS 

The high and low bytes refer to 
the location of the new interrupt 
routine. Somewhere in the new rou- 
tine three extra lines should be in- 
cluded, The first two are: 

LDA #$01 

STA$D019 

This can be located anywhere in 
the new code but the third extra line 
should be used instead of RTS: 

JMPSEA31 

This checks the keyboard to see 
if an input has occurred. If the 
keyboard check isn*t necessary the 
routine should end with: 

PLA 

TAY 

PLA 

TAX 

PLA 

RTI 

42 WAIT problems 

The WAIT command is probably 
the least used and most misunder- 
stood Basic term. Its use is princi- 
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pally for I/O actions because it has 
to use a memory location that can be 
changed externally, 

The most common applications 
are to test for a datasette or key- 
board keypress; 

WAIT 1,32,32 

WAIT 197,8 

The first key is the datasette 
sensor which waits until bit 5 of 
location 1 is set by pressing any of 
the motor keys, 

The second command peeks into 
the keypress register. Any key de- 
code value which sets bit 3 will 
terminate the pause 5 so 4 A' (value 
10) will be accepted but 4 R* (17) 
would have no effect* 

Another use is to detect the 
pressing of the CTRL, CBM or 
SHIFT keys through location 653. 
WAIT 653,1 will detect the SHIFT 
kev ? WAIT 653,2 finds the CBM key 
and WAIT 653,4 is the CTRL com- 
mand, Alternatively, WAIT 653,6 
will detect either the CTRL or CBM 
keys, 

43 Wait a jiffy 

One internal use of WAIT is to 
create a time delay when used with 
the TI$ register. 

TI$- fc OO000O":WAIT 161,1 will 
give a 4 second pause. 

44 Unofficial pause 

The pause routine called by the tape 
loading routines can be used as an 
alternative to the usual 'press any 
key' pause. SYS 58592 followed by 
POKE 198,0 will give an infinite 
pause and forget which key was 
pressed. The key must be one of 
those to the left of the keyboard, 

45 Colour change 

Character colours can be changed 
through control codes in PRINT 
statements but a better way for 
certain functions is to poke the 
colour value direct to location 646< 

46 Flash data 

It can be very boring waiting for a 
program to read in data, Sometimes 
it can take so long that you start to 
wonder if the computer has hung up. 
One way to reassure the user is to 
add an extra POKE command to 
flash the border, The nice thing 



about this location is that it will 
accept any value up to 255 without a 
murmur even though there are only 
sixteen colours to choose from. 

For numerical data POKE 
53280,A will create a border flash if 
A is the data value which has just 
been read in. If the data is greater 
than 255, a small division routine to 
keep the numbers down to accepta- 
ble values can be included 

With string data a modified ver- 
sion can be used taking ASC(AS) as 
the value, 

47 Screen shake 

One less serious function of location 
53270 can be shown with this line: 

FOR A = 0 TO 255:POKE 
53270,A:NEXT 

The screen shakes as though a 
violent earthquake was stirring in- 
side the 64. For added effect, poking 
A to 53281 will really blow your 
mind, 

48 Reset prevention 

The RUN/ STOP with RESTORE 
reset can be prevented by POKE 
808,225. The function can be re- 
enabled by POKE 808,237. 

49 Cold restart 

When a program has been altering 
the start of Basic and various other 
parameters, the easiest way to get 
the C64 back to normal is by using 
SYS 64738 instead of the END 
command. 

50 Scroll inn screens 

An upwards screen scroll can be 
forced at any time by SYS 59626, 

51 Making spaces 

S YS 59749 will open up a screen line 
beneath the current cursor position, 
effectively scrolling the screen 
downwards. 

Combining this routine with the 
normal scroll, a routine can be de- 
vised to give quite stunning effects, 

10 PRINT T HOME , YELLOW , SF4B , C7 3 
Pl : FDJCEE14 , 

£0 FDRA-0TOE3:SY559749;NEXT 
BE FORA"0TD1E00 i NEXT 
10 FQRA-0TOB5:SYS5aG26;N£:XT 
50 TDB0£3:POKEft 5 A-IN 

TCA/£56}*55G:NEXT 
S0 GGTD10 



52 Screen flipping 

Location 648 directs the operating 
system to the current screen area, 

10 PRINT "CCLH J THIS IS 5CEEEN 1 

a® PR I NT "TRESS ANY KEY** 
30 WAIT130, 1 

40 FDKEGG57e s FEEKC5G57e>DR3 
50 6C5UB1G0 

EB PRINT M EC LRHTHLS IS SCREEN S 
70 1NPUT P *TYFE ANYTHING IN" -AS 

90 FRINT 'THOME* DOWN33BACK AG A I 

N" 

100 PR I NT AS 
11© FQRB-1TP10 

120 FDRA-0TO1000 : NEXT : GOSUS3 60 

130 FDRA"1TD1000 : NEXT 
140 EO5UB200 
1S0 NEXT: END 
160 PQKEE4B S 13£ 

170 FCKE5G57G, CREEK (SG57G3AND& 
Sa)ORl 

1S0 FDKES3272, CPEEK t53E72>ANDl 
530R16 
190 RETURN 
200 FOKEG'tS, 4: 

eifl P0KE5B57E p CPEEKC5B576JAhlDB 

52)0R3 

BED RETURN 

53 Open files 

With complex programs, it's best to 
keep track of the number of open 
files. PEEK(152) will reveal the cur- 
rent number of active files. 

34 Motor kill 

To stop the datasette motor at any 
time, SYS $FCCA, 

55 String grabbing 

Strings can be pulled out of memory 
by using the ROM routine at 43806. 
The string must end with a quota- 
tion mark or a zero and the start 
address is stored in the accumulator 
(780) and Y register (782) in low 
byte/high byte format: 

10 REM "WHO STOLE THE BYTES? " 

* A PP 

£0 P0KE760 P 115:F0K£7B^ EBB : SYS 
43B0B 

30 FCK£7B0 i a6:FOKi7BE 1 E£B:5YS4 
3B0G 

H0 FRINT: PRINT 

S0 FDKE7BE 3 B s POKE7S2 , B s SYS^SBfl 
B 



56 Last filename 

The name of the last file to be loaded 
into the computer can be found 
from a ROM routine which the 
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computer uses to print the 'search- 
ing fof message: SYS 629 1 3. 

57 Faster Basic 

Maintaining the screen is a time 
consuming job for the 64. Complex 
calculations can be speeded up by 
five percent if the screen is blanked 
out first: 

POKE 56325, PEEK(56325) 
AND 239 

To get the screen back again the 
command becomes: 

POKE 56325, PEEK(56325) OR 

16 

58 Memory configuration 

Switching ROMs in and out of the 
64 memory is controlled by the first 
three bits of location ] . 

Bit 0 controls the Basic ROM at 
40960 ($AO0Q) 

Bit 1 switches the Kernal ROM 
at 57344 ($E0OO) 

Bit 2 is responsible for the char- 
acter ROM at 53248 ($D00O) 

59 One-line clear 

A partial screen clear can be 
achieved by using part of the in-built 
screen clear command, The row to 
be cleared is poked into the X 
register (780). Remember that the 
numbering starts with line (X 

10 FORA-1Q24TO 2023: 
POKE A, 1 : NEXT 

20 FOR A- 5 TO 20: POKE 
781, A 

30 SYS 59903 

40 NEXT 

60 Line snatching 

The screen routines can also be used 
for line grabbing. 

Location 59855 is the start of a 
routine which will copy a line from 
anywhere in memory and place it on 
the screen. The only thing to remem- 
ber is that the data must be written 
in screen poke values and be 40 
characters long. 

The low/high byte information 
for the start of the line is poked into 
locations 172/173. 

POKE 172, 0:POKE 173, 8:SYS 
59855 

The line is printed at the current 
cursor position which should be set 
before the routine is called (see tip 
7), 



Used with imagination, this rou- 
tine can be used to create special 
effects such as screen rotation or a 
one line scroll 

61 Wot, no tpjery 

Sometimes a question mark seems 
odd when an input is required. Not 
all inputs are questions so why 
should there be a question mark? 

POKE 19,1 before using INPUT 
will cure the problem. 

62 Tape headers 

The cassette buffer is a misnomer, it 
is actually the tape header buffer. 
When the header is FOUND switch 
off the datasette and press RUN/ 
STOP, Run the following program 
to find out what's in the buffer, 

10 CB-BEB 

30 LA-FEEKCCB+i:)+PEEl<(CB-i-£D*£5 
B 

40 Eft=FEEKCCB+3D+PEEKtCB+4D*25 
5 

50 FDRi=i-CB+57DCB-h50 

50 F£-F$+CHR£CFEEK{ A) 3 : NEXT 

70 FQRA-CB+21TO1019 z IFPEEKCA>- 

EOIHEN90 

BE nc-i 
90 NEXT 

100 PRlNT"[CLH J DDWN,SFC15]TPiFE 
INFO" 

110 PKINT'TSPClB^EBir 

120 PR I NT " CDQUN3 1 SECONDARY ADD 

RES5 - M j5 

130 PR1NT"[;DDLJNJ5TAKT addressc 

SPC5 IF = hl ■ LA 

140 FRINT IJ CD0UNJ£ND 

\Z71 = " ; Eft 

150 PR I NT "LBOUlNIFILEhlAHEE SPC10 

i : PDKEElc?, 1 ; FRINIFS 
160 I FMCTHEI4FR INT "£DDUNlHAtHIN 
E CODE tN RESIDENCE" 

63 Controlled Print 

It's no secret thai control codes can 
be used for changing the print colour 
but have you tried non-colour con- 
trol characters. After typing PRINT, 
open quotes, hold down CTRL and 
a letter and see what happens when 
the program runs. 

CTRL M can't be used because it 
does an automatic shifted return 
and erases the rest of the line that 
you're trying to enter, CTRL N 
automatically switches the comput- 
er into lower case. 

64 FAC facts 

Floating point is difficult to under- 
stand but can easily be used by 
machine code routines. 



The conversion of the numbers is 
performed by the routine at $B391. 
It takes a number stored in the Y/A 
registers in low/high byte format 
and stores it in a special register 
known as FAC#1 (Floating point 
Accumulator), If two numbers are 
to be operated on they must be 
transferred in the correct order to 
FAC#1 and FAC#2. 

To transfer a number from 
FAC#1 to FAC#2 the routine at 
$BC0F is used. This is shown in the 
example routine which divides 1000 
by 4 in hex. 

LDA #$03 

LDY #$ES 

JSR SB391 

JSR $BC0F 

LDA #$00 

LDY #$04 

JSRSB391 

JSR $BB12 

JSRSBDDD 

LDY #$05 
*LDA$0100,Y 

STA $00F9,Y 

DEY 

BNE * 

RTS 

To convert the result in FAC#1 
into a usable form, SBDDD returns 
the result in ASCII to $0100 from 
which it can be stored and used, in 
this case from location $FA. 

Other useful routines are 
available: 

$BBFC transfer FAC#2 to FAC#1 
$B86F add FAC#1 to FAC#2 
$B853 subtract FAC#1 from 

FAC#2 the result is stored 

in FAC#1 
$BA30 multiply FAC#I by 

FAC#2 and store the result 

in FAC#1 
$BB12 divide FAC#2 by FAC#1 

and store the result in 

FAC#1 

$BF7B raise FAC#1 to the power 

FAC#2 and store the result 

in FAC#1 
$BF7 1 calculate the square root of 

FAC#1 and store the result 

in FAC#1 
If you discover an interesting rou- 
tine for the Commodore 64, why not 
let everyone in on the secret and 
send it to: Tips for the Serious User, 
Your Commodore, ASP Ltd, I 
Golden Square, London W1R 3AB. 
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TEXT SCREEN DUMP 



1/1 



This utility will dump the 
current text screen from inside a 
Basic program- It reads the 
location where the screen is 
stored and. translates them into 
ASCII code values ready for 
printing. 

Place the program inside a 
listing and the command GOTO 10 
will set the process in motion* 



10 REM TEXT SCREEN DUMP 

20 REM BY ANDREW GORRIE 

30 FAST : P$=CHR$(16) : i^"" : 

OPEN4 ,4,7 

40 AA=1024:FOR P=0 TO 24 

50 FOR N=AA TO AA+39 : GOSUB 60 : 

NEXT : AA=AA+40 : PRINT* 4, P$ "15" 

A$: NEXT P :SL0W : END 

60 IF PEEK(N)>63 AND PEEK(N)<91 

THEN Q=32 

70 IF PEEK(N)>128 THEN Q=-128 

80 IF PEEK(N)<26 THEN Q^64 

90 A$=A$+CHR$.{PEEK(N)+Q) I Q=0 : 

RETURN 
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Running this program means that 
the border can be changed by 
pressing the RESTORE key. The 
colour cycles through to a new 
value for each press of the key. 

The program works by resetting 
the STOP routine vector at 
808-9. By altering these you can 
point the restore key to any 
routine you like. The border 
change routine has been chosen to 
highlight a side effect of this 
method* When a program is loaded 
or saved, the border changes as 
the ROM routines call on the STOP 
routine while performing their 
tasks . 



RESTORE BORDER CHANGE 



1/1 



Pressing RUN/ STOP with restore 
will deactivate the border 
routine and POKE 808,0: POKE 
809,192 will activate it. 



10 REM RESTORE KEY BORDER CHANGE 
20 C^O.FOR 1=0 TO 5: READ A: POKE 
49152+1 , A:C=C+A;NEXT 
30 IF C<>1 037 THEN PRINT " ERROR IN 
LINE 40" : END 

40 DATA 238,32,208,76,237,246 



808,0; POKE 



50 POKE 
60 PRINT"?RESS 



809, 192 



RESTORE" 



LISTING 



A Bit More 



Turn your C64 into a hi- res machine with a bitmap, 
16 sprites, a redefmable character set, 8K of storage 
plus 21 commands - but retaining 36K for Basic! 



his utility combines two ideas in 
the one program. Firstly, the 
memory map is reconfigured so that 
the screen, character set, and bitmap 
are in Bank 3 (from 491 52 to 65535) 
and, secondly, an arsenal of 21 
machine-code commands is loaded 
into the area of memory once used 
by the screen (from 1020 to 3794), 
the start of Basic being moved up to 
3795 to protect it. If you have a look 
at the memory map provided you 
will see that almost the whole of the 
memory is now usable. The excep- 
tions being the I/O area from 53248 
to 56344 and the area from 0 to 
3494, which still leaves some 57945 
bytes free. 

The program is in two parts. The 
first, called MCLOAD, is stored 
from 6S0 to 762 and forms a 
machine-code loader which sets the 
start of Basic memory to 3795 and 
then loads in the main program, 
called MCFILE, and calls the recon- 
figure command {SYS 1020), finally 
ending with NEW to set the Basic 
pointers correctly. 

MCFILE is the program contain- 
ing the machine-code commands 
and consists of a jump table (from 
1020 to 1083) for the command 
routines, followed by the routines 
themselves between 1086 and 3794. 

The following is a detailed list of 
all the new commands available. 
RECONFIGURE - 
SYS1020 

This is the command that sets up the 



new memory configuration and can 
be used at any time. The screen, 
sprite pointers, sprites and bitmap 
maintain their relative positions but 
move up into Bank 3. 

The screen is at 
1024+49152=50176, the first sprite 
pointer is at 2040+49152=51192, 
sprites 0-15 are at 0*64+49152= 
49152 to 15*64+49152=50112 and 
the bitmap is at 8192+49152= 
57344. 

The character set is now in RAM at 
51200 to 53248 and consists of the 
first 256 characters of the normal set 
but it can be redefined at any time. 
RASTER ON - 
SYS1023 

The raster interrupt routine is 
turned on with this command and 
can be used for both split-screen 
graphics and sound as detailed later. 
It is not recommended that you 
leave the raster interrupt routine 
running when using the LOAD and 
SAVE or the MEMORY MOVE and 
MEMORY FILL commands. 
RASTER OFF - 
SYS1026 

This command is obviously to turn 
off the interrupt routine. 
SPLIT-SCREEN - 
SYS1029, 
<fl or 1-2M> 

This command is used in conjunc- 
tion with the RASTER ON com- 



mand to set up a split-screen where 
the top part is bitmapped while the 
rest is the normal screen display. It 
requires one parameter which sets 
the split to a screen line between 1 
and 200. A value of zero turns the 
split-screen off. 
BITMAP ON - 
SYS1032 

This turns on the full screen bitmap. 
If a full bitmap and an interrupt are 
required at the same time for 
running the sound routine, then 
the SPLIT-SCREEN command 
SYS 1029,200 should be used rather 
than this one. If at any time this 
command does not appear to be 
working, check that the raster rou- 
tine has been switched off first be- 
cause they won't work together. 
BITMAP OFF - 
SYSI035 

Turns off the bitmap. The same 

rules apply to these interrupts as 

those detailed in the BITMAP ON 

command, 

CLEAR BITMAP - 

SYS1038 

This command clears the complete 
bitmap. If you want to clear only 
parts of a bitmap see the MEMORY 
FILL command and Example 3 in 
the DEMO program. 
COLOUR BITMAP - 
SYSI041 

The complete bitmap is filled with 
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the current colour stored in 254, this 

is set with the SET CURRENT 

COLOUR command. 

SET CURRENT COLOUR - 

SYSKM4,<O-!5>,<0-15> 

Use this command to set the display 

colour. It requires two parameters, 

the first is the plot or drawing colour 

using the standard colour codes and 

the second is the background colour. 

PLOT POINT ON BITMAP - 

SYSI047 ? <0-319>,<0-199>, 

<0-l-2> 

Points on the bitmap screen will be 
plotted in the current colour. Three 
parameters are required - the First is 
the X co-ordinate between 0 and 
319, the second is the Y coordinate 
between 0 and 199, the third is the 
mode which can be zero to unplot or 
erase a point, one to plot a point or 
two to test if a pixel is on or off. If 
the pixel is off then location 2 will 
contain a zero, if the pixel is on then 
it will contain the number 100. 
DRAW LINE - 
SYS 1050, 

<O-319>,<O-199>,<0-3I9>, 
<fl-I99>,<0-l> 
To draw lines on a bitmap, this 
command can be used with its five 
parameters. The first two are the 
starting X and Y co-ordinates of the 
line, the next two are the end of line 
X and Y co-ordinates, the last is the 
mode, which can be either zero to 
erase or one to plot. 
DRAW CIRCLE - 
SYS1053, 

<0~319>,<0-199>,<0-129>, 
<0-I> 

Here is the command which draws 
circles from four parameters. The 
first two are the X and Y co- 
ordinates of the centre of the circle, 
the next is the radius of the circle. 
The smallest circle that can be 
drawn has a radius of one and the 
largest has radius 129. The last 
parameter is once again the mode, 
either zero or one for erasing or 
plotting. 

FILL BITM AP - 
SYS 10 56, 

<0-319>,<(M99>,<(M> 
This is the command that fills select- 
ed areas of the bitmap and it re- 
quires three parameters. The first 
two are the X and Y co-ordinates for 
the starting point of the fill, the third 



is again the mode of either zero or 
one. The starting point of the fill is 
important as the routine is not the 
smartest around. Try the following 
example and you will see what I 
mean, 

Set up a bitmap using the follow- 
ing commands in either program or 
immediate mode. 

SYS1 044 3 2, 10 - set colours 

to red on 
light red 

SYS1038:SYSI041 - clear and 

colour the 

bitmap 

SYS 1032 -turn on 

the 

bitmap 

SYS 1053, 160,100,50,1 - draw 

circle 

Next try SYS 1 056, 1 40, 1 00, 1 and 
you will see that the circle is not 
properly filled. Erase the above with 
SYS 1056,140, 100,0 and draw the 
circle again (same as before) and 
then use SYS 1 056, 160,1 00, L The 
circle will now be filled correctly. 
Have a look at Example 6 in the 
demo program and you will see 
some of the limitations of the fill 
commands. The two fill routines are 
reasonably fast and compact in code 
so you can't expect miracles, 
FILL WITH CHARACTER - 
SYSi059,<0-3l9>,<0-199> f 
<0-l> f <0~255> 
This routine works in the same way 
as the ordinary fill routine but is has 
an extra parameter. This ls a charac- 
ter from the character set, numbered 
0 to 255, and is used to specify the 
fill pattern. You can fill or erase any 
area of the screen or even the whole 
screen with this character and, since 
the character set is redefinabie, there 
arc hundreds of possible fill patterns 
available. The limitations of the fill 
routine also apply to this command. 
SET SOUND - 
SYS1062,<1^3>, 
<D-15>,<0-255>,<O-255>, 
<0-255>,<0~255>,<0-255>, 
<0-lS>,<0-»5> # <0-255>, 
The sound command can be used in 
two ways and needs ten parameters 
to work, In order, these are the 
voice, volume, low frequency, high 
frequency, attack/decay, sustain/re- 
lease, low pulse, high pulse, wave- 



form and the duration of a note. All 
but one of these operate in the 
normal way, the exception being the 
duration* 

If the interrupt is not turned on, 
then the duration is simply a set-up 
command and the particular voice 
used will have to be gated off in the 
normal way. If, however, the inter- 
rupt is on, then the duration param- 
eter comes into effect. The length of 
the note is calculated by: 

Duration = time in seconds x 50 

eg. a five second note gives a 
parameter of 5 x 50 = 250 

All three voices can be used at 
once under interrupt control and 
you can have split-screen graphics 
and interrupt controlled sound at 
the same time. 

To check if a voice has finished 
processing, or requires more data, a 
PEEK to the voice control register is 
needed. For the three voices, the 
registers are located at 1228, 1129 
and 1130 respectively. If the Voice 1 
register at 1128 contains 100 then 
the voice is still on. If it contains 
zero then the voice has been gated 
offi The other two voice registers 
operate in the same way + 
SET SPRITE - 
SYS1065,«K7>, 
<0-1>,<0-255> ? <0-15>, 
<0-320> t <0-255>,<0-l> s 
<fl-l > ,<0-l > > <0 15> t 
<0-15> 

This command allow r s sprites to 
be set up with only one instruction 
but it has eleven parameters which 
need to be specified. These are; 
sprite number, sprite off/on, sprite 
pointer (remember data should be 
somewhere in bank 3 ie. for a 
pointer set to 13 the data should be 
at 13*64+49152-49984 onwards), 
sprite colour, X position, Y posi- 
tion, X expand (0=ordinary, ^ex- 
panded), Y expand, multicolour of- 
f/on, multicolour 1, multicolour 2. 
These all operate in the normal way. 
To turn off any sprite you only need 
to specify its number followed by 
zero (egp to turn sprite 7 off use 
SYS1065,7,0). 
MOVE MEMORY - 
SYS1068, 

<0-65535>,<(M5§35>, 
<0-32767> 

Use of this command will move any 
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block of memory to any addrcsss as 
specified by the three parameters. 
The first is the block's destination 
address, the second is the starting 
address of the block to be moved, 
and the third is its length which is 
limited to a maximum of 3 2 EC, 

MOVE MEMORY has access to 
all of the RAM, including that under 
the Basic and Kernal ROMS, except 
for the RAM under the VIC, SID ? 
and the I/O ROMs. 

As was mentioned earlier s it is 
not advisable to use this command 
with the interrupt running. If you 
need to have a split-screen and to 
move or fill large areas of memory as 
well, then simply switch off the 
interrupt before calling this routine 
and switch it back on immediately 
afterwards. This will cause the 
screen to flicker or upset sound 
timings but it is simply a conse- 
quence of not being able to have 
interrupts running while maintain- 
iftg access to the RAM under ROMs 
at the same time. 
FILL MEMORY - 
SYS 1071 

<(M5535> , <0^32767>, 
<G-255> 

You can fill any area of memory up 
to a block size of 32 K with a number 
between 0 and 255 using this com- 
mand. The parameters required 
form the starting address of the 
memory block to be filled, the length 
of the block (up to 32K) S and the 
number with which the block is 
filled. 

This command uses part of the 
MOVE MEMORY routine and the 
interrupt restrictions also apply. 
There are no restrictions concerning 
which part of memory you are filling 
so be careful that you don't over- 
write something important, such as 
the operating system and program 
areas* 

SAVE MEMORY - 
SYSl074 t <file 

mme>,<01 or 08-11>,<00>, 
<0-G5535> ? <0-65535> 
This is a machine code SAVE rou- 
tine and can be used either in imme- 
diate mode or as part of a program. 
The parameters required are the 
filename (usual restrictions apply 
eg. name length of 16 characters), 
device number, the number zero, 



the starting address of the block to 
be saved, the end address+1 of the 
block to be saved, 

LOAD MEMORY - 
SYS1077, 

<file name>,<01 or 08-ll>, 
<00>,<0-65535> 
The LOAD command can be used in 
either immediate mode or within a 
program and requires the following 
parameters. Firstly the filename, 
then the device, the number zero 
(this is essential), and finally the 
load address. 

SET CURSOR POSITION - 
SYSl080 1 <0-24> i <0-39> 
This is the last command, and it is 
used to print text to a specific row 
and column on the screen, eg, 
SYS1080, 10,14 followed by 
PRINT<text message > will print 
the message on row 10, column 14, 

These are ah the new commands 
that are available and if you have a 
look at the DEMO program provid- 
ed it should give you some idea of 
how to make use of them. The best 
way to find out what can and cannot 
be achieved is to experiment as 
much as possible and see what 
happens. 

If for any reason you press the 
RUN/STOP and RESTORE keys, 



NEW heiicry NAP 



you should put the disk that con- 
tains the MCFILE program into the 
drive, and type SYS686. This will 
get everything back to normal with- 
out losing any Basic program that 
may be in memory. Do not use 
SYS680 as this contains the NEW 
command and any Basic program 
will be lost. 

Split loyalties 

The problems that prevent using the 
memory move or fill commands 
with a raster interrupt running relate 
to the operating system ROMs. 

To set the scene, the raster inter- 
rupt comes into operation at the 
specified screen line, either turning 
on or off the bitmap as necessary. 
The routine then exits via the nor- 
mal interrupt routine handler at 
$EA3 1 to ensure correct Basic oper- 
ation with key scan. So far so good. 

The MEMORY MOVE conv 
mand requires access to the RAM 
under the Basic and Kemal ROMs, 
so these are both switched out. Inter- 
rupts cannot now be allowed to 
occur since the Basic interpreter is 
no longer in memory. If the 
MEMORY MOVE command is 
running, the interrupt flag is set so, 
if the routine runs for longer than 
l/50th of a second (the time it takes 



MAIN BASIC HEMORY 

s^X.----, 



//////,//////////// 



-193 BYTES STORAGE 

-BITriAP SCREEN CS7344 - E5344J 
OR STORAGE AREA 

-UNUSABLE C UIC, SID P I/O ETC. > 

-CHARACTER SET i 512DD - saaiBMSSB CHARS. * B BYTES 3 
-SPRITE POINTERS CS11SE - 51133 5 
-SCREEN MEMORY C5017E - 511755 

-DISPLAY SPRITE STORAGE C0-1S) C^tSlSZ - 50 175} 
-SPRITE STORAGE CI EE SPRITES^ 

OR CHARACTER SETS CI) 

OR BITflAP 5TDRAGE Cl> 

OR OTHER C4DSEQ - 43151) 
-TOP OF BASIC C 10959 > 



371 GE BASIC BYTES FREE 



-START Of BASIC C 3 7357 

-NEW CmhAWJB FROGRAh (lDSO 

- OPERATE NE SYSTEMS AREA 



-37S4) 
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for the raster to scan a complete 
screen), the raster interrupt will be 
hetd up. When the MEMORY 
MOVE command is finished the 
interrupt flag is cleared and the 
raster interrupt can now occur. Un- 
fortunately, the raster display will be 
frozen during the MEMORY 
MOVE interrupt giving a full high 
resolution screen or a full normal 



screen. Either way the result is a 
mess! 

The only way round this problem 
is to avoid using the two commands 
together or simply switch the raster 
off before using the MEMORY 
MOVE command and switch it back 
on again afterwards using the rou- 
tines provided. 

All the above also applies to the 



MEMORY FILL command because 
memory has been saved by using 
some of the subroutines of the 
MEMORY MOVE command. 

Finally, if you want to load the 
program without the menu system, 
type LOAD"MCLOAD"8,l and 
then SYS680. To get the demo pro- 
gram type LOAD"DEMO" t 8 Then 
RUN. 




PROGRAM: 11 C LOAD 



3B 
OA 

26 



10 REM MCLDAD 

20 REM THIS FROGRAn LOADS AN 
D SAUES THE nCLOAD FILE 
30 REM TYPE THIS IN AND 5AUE 
IT TD TAPE OR DISK AS "MCLO 
AD . BAS " 

40 REM INSERT YOUR HASTER TA 
PE DR DISK AND RUN MCLPAO . BA 

5 



67 



C6 
7C 
25 
CF 

SO 

55 



FB 



CE 



E5 



SO REM THE SCREEN WILL FLASH 
AND THEN THE SAUE WILL OCCU 
H AUTOMATICALLY 
SO : 

70 i 

60 BL-4:LN-50:5ft-BBO 

SO FOR L"0 TO BL: CX-O: FDR D- 

0 TD IS 

100 READ A:CX-CX+A-FOKE SA+L 
* 15+0 j A; POKES 3280 , A ; 'NEXT 0 
110 READ AiIF A><CX THENFRIN 
T'ERRDR IN LINE" i LN+CL"105 tS 

top 

120 NEXT L 3 READA ; FOKE750 , A : R 
EADA : P0KE761 , A 
130 DATA 32,174,2,75,219,2,1 
69 j 2 , 1G2 , 6 , 1 50 K L , 32 , 1 B5 , E55 , 

140 DATA 6, 152,244, 160,5.32, 



IBS , 2S5 , 165 , 0 , 32 , 21 3 , 255 , 153 

p 211 ,133,2235 
BB ISO DATA 43,169,14,133,44,16 

3,0, 141,210, 14,32,30,5,166, 1 

47,35, 1352 
2S 1B0 DATA 210,255,95,163,4,13 

3, 198, IBS ,78, 141, US .2, 163,6 

9, 141, 120,2073 
4D 170 DATA 2, IBS , B7, 141 , 151 , 2, 

163, 13, 141,122, 2, SE>77, 67 ,70 
,73,1352 

F5 190 DATA 75,69,0,0,0,0,0,0,0 

,0,0,0,0,0,0,0, 14S 
ES ISO F0KE133,166;P0KE1S4,2:P0 

KE174,251;F0KE175,2 
74 200 P0KE167,7i F0KE1 BB , B r POKE 

183 , B ; P0KE1BB a B : ^EM POKE 106 

, 1 FOR CASSETTE 
£7 210 POKE 165,0 3 5Y5629S4 



PROGRAM I1CFILE 



36 
6S 
81 

15 

C5 
51 

A2 

6S 

51 

2E 



B7 
SB 



77 
SF 
EA 



10 REM TYPE IN THIS PROGRAM 
AND SAUE ON A SPARE TAPE OR 
DISK AS "MCFILE-BAS" 
20 REM BEFORE RUNNING PLACE 
THE DISK OR CASSETTE WITH MC 
LOAD INTO THE SAUE DEVICE 
30 REH IF USING CASSETTE, EN 
SURE IT IS SET TG THE END OF 
MCIOAD 

40 REM AND MAKE SURE THAT LI 

NE 100 HAS BEEN CHANGED 

SO REM RUN MCFILE . HAS 

50 BL-1B4 :LN-50 3 5 A- 3626 

4 

70 FOR L-0 TO BL;CX-OiFDR D" 
0 TO IS: READ A3 CX-CX+A 
30 POKE532S0,A;PDKE 5fl+L*16+ 
D, A: NEXT D 

90 READ A; IF A><CX THENPRINT 
"ERROR IN LINE JP iLN+CL*lO^ST 
OP 

100 NEXT L 3 REM IF USING CASS 
ETTE, INSERT POKE 33713,1 HE 
RE 

101 SYS33B3S 

110 DATA 76,30,5,76,65,4,76, 
5B, 14,75,203 , 4 , 75 B 1 4? , 14 , 7B , 
1007 

ISO DATA 161,14,76,240,4,76, 
6,5,76,123,14,76,144,9,76,15 
3, 1253 

130 OATA 7,76,111,6,76,154,1 
0,75, 117, 10, 75,166, 5,75.252, 

140 DATA 76, 25 p 12,75, 196, 15, 



75,14, 14,76,43,14,76,175,14, 
96,930 

OB 150 DATA 95,56,120,173,14,22 

0,41,254, 141, 14,220, 173, 17,5 

OB, 41 ,127, 1SSS 
OF LGO DATA 1 41 , 1 7 , 205 t I BS . 0 , 1 4 

1, IB, 206, 159, 114, 141,20,3, 16 

3 P 4 P 141, 1663 
36 170 DATA 51,3,173,26,205,3,1 

,141,55,206,86,96,0,0,0,0,10 

00 

04: ISO DATA 0 , 0 , □ , 0 , 0 , 0 , 163 , 1 , 4 
4, 25, 209, 540, 21, 173, 113,4,99 
6 

CB ISO DATA 201 > 0,240, 3, 76 ,145, 
4, 7G, 174,4, 173,55,205,9, 1, 14 
1 , 1400 




70 200 DATA 25,200,76,49,234,15 

9,6,44,24,206,500,22, 173, 17, 

2 0 B 9 1 SB 2 
SB 510 'DATA 32,141,17,206,155,2 

6,141,54,200,173,112,4,141,1 

6,500,76, 1639 
3 A 220 OATA 134 , 4 , 173 K 17 , 206 , 41 

F 223,141,17 p 20B,16B,lS5 f 141 , 

136,5, IBS, 1973 
3B 230 DATA 19,141,24,506,159,0 

,141, 16,506, 32, 113,5,76, 134, 

4,35, 1323 
14 240 DATA 31,5, 15S, 20, 540,21, 



B9 



7A 



FIB 



es 



D2 



D9 



40 



15 



AO 



SI 



CB 



SB 



501,201, 144,3,76,72, 170,24, 1 
65,20, 1657 

250 DATA 10S, SO, 141, 112,4, 16 
3,100,141, 113,4,05, 169,0,141 
, 115,4, 1451 

250 DATA 141,113,4,96,165,32 

, 159,224, 133,255, 153, 0,133, 2 

51,166,145,2132 

27Q DATA 251 , 200 , BOB , 251 , E3D 

, 2S2 , E05 , 50B , 246, 96 , 165 , 4 , 16 

9, 135, 133,262,3060 

2B0 DATA 159,0,133,251,155,1 

65,254, 145,251 ,200,209,551,2 

30 , 252 , 202 , 20S , 3007 

290 DATA 246,95,120,173,2,22 

1 , 3 , 3 , 141 , 2 , 251 , 173 , O , 22 1 , 41 

,252,1351 

300 DATA 9,0,141,0,521,169,1 
S, 141, 24, 206, IBS, 13B, 141, 136 
,2, 169, 1744 

310 DATA 0,133,251,169,200,1 
33,255,153,0, 133,253, 153, 206 
,133,254, 165,2652 
320 DATA 1,41,261,133,1,150, 
0, 177, 253 1 145 , 251 , 230, 253, 23 
0,251,165,2542 
330 DATA 251,205,244,230,252 
„ 230 , 254 , IBS, 254, 201 , 216,208 
,234, 155, 1,3,3122 
340 DATA 4,133,1,65,36,173,1 
04,4,540,19,173,107,4,506,11 
P 16S, 1534 
350 DATA 0,141,4,212,141,104 
,4,75,137,6,206, 107,4, 173, 10 
5,4, 1423 
360 DATA 240,19, 173, 1QB. 4, 20 
0, 11, 165,0,141,11.212, 141, 10 
5,4,75,1522 
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6* 370 DATA 161,5,206,106,4,173 

, 106,4,240,19, 173, 103,4,200, 

ll p 169, 1700 
54 300 DATA 0, 141 , IB. 212, 141 , 10 

E,4, 76, 185,5, 206, 109, 4,96,32 

,91, 1*56 

2B 390 DATA 5,185,20,240,4,201, 

4 , 144 , 3 , 76 , 72 , 170 , 155 , 20 , 166 

, 136, 1602 
14 400 DATA 140 p 1 1 1 , 4 , 501 a 3 a 240 

,20,201,2, 240, B, IBB, 0, 141. 11 

0,4, 1594 
IF 410 DATA 75,236,5, 153,7, 141 a 

110,4,7B,23E,5, 159, 14 , 141 , 11 

0,4, 1503 

11 4S0 DATA 32,31,5,32,228,13,1 
41 ,24 ,212, 32, 91 ,6,32, 101 ,6, 1 
74 p 1531 

94 430 DATA 110,4,157,0,212,32, 
31 ,5,32, 101,6, 174,110,4,157. 
l a 1137 

OC 440 DATA 212,32,91,6,32,101, 
G, 174, 110,4, 157,5,215,35,31., 
6, 1571 

G6 450 DATA 32, 101 , 6, 174, 110, 4 ., 
157,6,215, 32,91 ,6,32, 101, G, 1 
74, 1244 

CE 4S0 DATA 110,4,157.2,215,35. 
91 ,G,32 ? 22B, 13, 174, 110, 4, 157 
.3, 1335 

SA 470 DATA 212,32,91,6.32,101, 
6,174,110,4.197.4,212,32,91, 
6,1270 




SD 480 DATA 32,101,6,172,111,4, 

153, 107,4, 169, 100,153, 104,4, 

36,35, 1340 
E3S 430 DATA 553,174,32,138,173, 

35,547, 103,35, 165,21,240,3,7 

6,72, 178,5033 
CF 500 DATA 165,20,96,32,91,6,3 

2, 103, 14 a 155,20, 133, 16B a 165, 

21,133,1370 
34 510 DATA 157,32,91,6,32,97,1 

4,133,159,35,91,6. 165,20,240 

P 4, 1299 

96 920 DATA 201,130,144,3.76,72 

i 176 ,133,82,32,31,6, 33, 540, 1 

3, 133, 1565 
3£ 530 DATA 41,153.0.133,80,165 

,02 a 133,81, 169, 1,133 ,170, IBS 

,B5, 10, 1614 
64 540 DATA 56 , 233,1 ,133,171 , 5G 

,533, 1, 133,75,24,165, IBB, 101 

,91, 170, 1901 
32 550 DATA 165,167,105,0,166,2 

4,155. 163, 101,60, 176,3,35,14 

1,7,24, 1527 
GB SBO DATA 165,168.101,60.170, 

165, 167,105.0, 1B9.56. 165, 163 

,229,81,144,2133 
16 S70 DATA 3,32,141,7,50,165,1 

68,229,01, 170,155,157,233,0, 

160,55, 1941 
G2 560 DATA 165,169,229,00,144, 

3,32, 141, 7, 56, 165, 156,223, BO 

,170, 165,2003 
7E 590 DATA 167,233,0,156,24,16 

5, 169, 101,01, 176,3,32, 141,7, 

230,00,1777 



B7 500 DATA 230.170,230,170,96, 

155,75,223, 170, 133,75, 175,22 

,55, 159,355,2301 
CC GIO DATA 223, 75, 133, 75, 230, 7 

5, 136,81 , IBB, 171, IBB, 171,56, 

165,171,259,5455 
35 620 DATA 75,133,75,54,165,16 

8, 101, BO, 170, 1G5, 167, 105,0, 1 

56,24, 165, 17B5 
E7 630 DATA 168,101,61,176.3,33 

, 141,7,24, 165, 168,101 ,Bl, 170 

, 155, 167, 1791 
IF 540 DATA 105,0,160,55,165,16 

3,229,90, 144, 3 a 32, 141,7,66, 1 

55, 16B, 16BB 
01 550 DATA 223,60,170,165,167, 

233,0,188,56, 165,153,329,91, 

144, 3,32,2031 
BE 660 DATA 141,7,55,165,156,22 

0,01, 170 , 165 , 167 , 333 , 0 , IBB , 2 

4, 165, 163,2102 
17 670 DATA 101,60,176,3,32,141 

,7 T 165,80, 197,01, 176,3,75,16 

2,6, 1506 

45 BOD DATA 36,201,200,176,17,1 

33 , 253 , 162 , 0 , 240 , 4 , 224 , 64 , 17 

8,7,134,2117 
55 690 DATA 251 , 1 32 , 252 , 32 , 1 80 , 

9,56,32,91,5,32, 109, 14, 155, 2 

0, 133, 1554 
69 700 DATA 167,155,21,133,168, 

32,91,5,32,97, 14, 133, 163, 32, 

91,6, 1357 
Dl 710 DATA 32,109,14,165,21,13 

3.75, 155,30, 133,75,32,61,6,3 

2,97, 1201 

21 720 DATA 14, 133, 151,32,91,6, 
32,240, 13, 133,41,56, 165,75,2 
23, 157, 1578 

53 73Q DATA 133,170,165,76,229, 

160, 133, 171 , 176, 20, 155, 170, 7 

3.565, 133, 170,3407 
ED 740 DATA 530,170,155.171,73, 

255, 133, 171, 155, 170,208,3,33 

0,171 ,56,165,2535 
□A 750 DATA 151,229,165,133,39, 

176,6,73,255,133,36,230,38,1 

55,171.208,2213 
25 750 DATA 6,155,170,197,30 14 

4,66, 1G5.7B, 137, 160, 144,34,2 

00,5, 165, 1949 
4B 770 DATA 75,137,167,144,26,1 

65, 151, 197, 169, 144, 11, 168,10 

O, 133, 77 t 153,2034 
EC 760 DATA 0,133,76,76,157,9,1 

69,0, 133,77, 133,70,76, 157,6, 

165,1446 

8B 730 DATA 151,197,163,144,3,1 

69, 100, 133,77, 133, 76, 76,157, 

8,169,0, 1770 
53 800 DATA 133,77,169,100,133, 

70,76, 157,8, 165, 151, 137, 158, 

144,34, 155, 1356 
04 010 DATA 76,197,156,144,19,2 

06 P 6 P 1GG,75, 1B7, 167, 144, 11, 1 

63, 100, 133, 1979 
DB 820 DATA 33,159,0,133,40,76, 

22, 3, 169,0, 133,39, 133,40,75, 

22, 1100 

22 B30 DATA 9, 165 ,7G , 137 , 166 , 14 
4, 15, 165,75, 157, 187, 144, 8, 16 
3, 100, 133, 1933 

30 840 DATA 30,133,40,76,22,9,1 
53,0, 133,39, 169, 100, 133,40,7 
5,32, 1200 



05 950 DATA 3,155,171.74,165,17 
0, 106, 133,01, 1G3,0, 133,62, 13 
3,79, 133,1803 

01 B50 DATA 00,32,135,9,165,73 
203, 11,230, 167, 1G5, 157,206, 1 




9A 



□ □ 



3F 



OE 



30 



06 



DE 



5D 



A9 



D2 



BE 



AC 



OC 



55 



EB 



37 



CF 



70 



49 



D7 



5,230, 150,2055 

070 DATA 76,201 ,B, IBB, 157, 16 
6,167,201,255, 200,2, 190, 160, 
SB, IBS, 91, 2316 

880 DATA; 223,38, 133, 81, 165, B 
2,233,0, 133,62, 176 , 3B s 1B5, Bl 
,73,255,1364 

030 DATA 133,01 ,230, Bl , 265. Q 
2,73,255, 133, B2, 165,77,208,5 
,198, 169,2137 

300 DATA 76 ,.24 1,6, 230, 169, 5G 
,165, 170,223, Bl, 133,61, 165,1 
71,229,02,2286 

310 DATA 133, 62,165,00,197,1 
71,20B,7, 155,79, 137, 170,200, 
1,35,330,2189 

830 DATA 73,165,78,200,2,230 
, 80 , 75 , 173 , 8 , 165 , 3B , 74 , 133 , 6 
1,158, 1760 

330 DATA 0,133,82,133,70,32, 
128^8, 155,40,206, 5, 230, 1 E9. > 7 
G , 47 ; 1534 

340 DATA 3,130,163,56,165,01 
,229, 170,133,81, 165,82,228, 1 
71,133,82,2153 

950 DATA 176,52,165,81,73,35 
5,133, 01 ,230,81, 165,92,73,25 
5, 133,82,2117 

360 DATA 155,33,209,13,190,1 
57, 165, 167,201,255,208, 13, 18 
B, IBB, 76, 101 ,2342 
370 DATA 9,230, 1G7, 155J 167, 2 
OB, 3, 230, 168,56, 165,38,223,8 
1, 133,01,2123 

3B0 DATA 165,82,233,0,133,02 
, 165,73,137,38,200,1,36,230, 
70,76, 1BS4 

880 DATA 33,9, 165, 1GG, 133, 35 
2, 155, 167, 133,251, 155, 159, 13 
3, 253, 32, 180,2408 
1000 DATA 9,36,0,0,32,31,6,3 
2, 109, 14, 155,20, 133,251 ,185, 
21 ,1144 

1010 DATA 133,252,32,91,6,32 
,97, 14, 133,253, 32,91,6, 165,2 
0,201, 1558 

1030 DATA 3,144,3,75,72,170. 
133,41, 155,251,41 ,7, 170,56, 1 
53,0,1503 

1030 DATA 133,90, 106,202, 15, 
252 , 133 , 83, 165, 251 , 41 , 248 , 13 
3,32, 165,253,2369 
1040 DATA 74,74,74,133,31,74 
, 102,90,74, 102,90, 101,91, 133 
,91, 165, 1553 

1050 DATA 253,41,7,101,30,10 
1,92,133,90, 155,01,101,252,1 
05,224, 133,1379 
10G0 DATA 31,120,155,1,41,25 
3, 133, 1, 165,41,340,40,201, 1, 
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E-iO, 22 , 1755 
25 1070 DATA 160,0,177,90,35,98 
, 20B,7, 169,0, 133,2,76. lOS, 10 
163 1435 
10BQDATA 100,133,5,76,105,1 
0, 160,0, 177.50,5,89, 145,00, 3 
2,50,1258 
92 1090 DATA 10,76,109,10,160,0 

,56,155,255,529, 99, 133,99, 17 

7,^0,37, 1583 
1100 DATA 09,145,50,75,103,1 
0, 153,0, 133,90, 133,91, 165,25 
3,41,248, 1B42 

HID DATA 133, 9£, 133,90,10,3 
9, 91, 10,38,31 ,54 ,.101, 95,133, 
90, 165, 1331 
A3 1 150 DATA 91,105,0,133,31,54 
, 169,0, 101 ,90, 133,90,24, 1G9, 
196, 101 ,1517 
1130 DATA 91, 133,91, 155 , E5E , 
74 , 165 , SSI , 106, 74 , 74 , IBB , 1E5 
,254, 145,30,5298 
5A 1140 DATA 96 , 165 , 1 , 9 , 2 , 133 , 1 
,89,36,155,100, 133, 171, 76, IE 
6, 10, 1379 
7B 1150 DATA 169 , 0 , 133 , 1 7 1 p 3E , 5 
1,6,32, 10e, 14, 165, EO, 133, IB? 

, igs,£1,1429 

51 1160 DATA 133, 32, 91, 5, 32 

,97, 14. 133, 163, 32, 91 ,6,32,24 
-"0, 13, 1599 
59 1170 DATA 133,75,501.0.200,7 
p 1GS, 100, 133, 75,75, 173 p 10, 16 
310,133,1663 
17 HBO OATA 76,165,171,240,55, 
35,91,6. 159,0, 133,595,155,51 
,240,3, IBIS 
1190 DATA 76, 7E, 17B, 165,50, 1 
0,35,255, 10,38,255, 10, 3B,25E 
, 133,251, 1735 
E4 1200 DATA £4 , 185 r 0 , 101 , 251 , 1 
33,251, 163,500, 101 ,255, 133,2 
SB, 1B0,0, 177, E373 
32 1510 DATA 251,153,34,0,500,1 
3E,B, 209,246, 199,0,133, 170, 1 
65 , 167 , 133 , EEB3 
AO 1220 DATA 251 , 165 , 166 , 1 33 , E5 
2, 155, 163, 133,553.153,2, 133, 
41,32, 199, 11 ,E£7S 
r C4 1530 OATA 165,5,197,76,509,2 
0, 155,75, 133,41 , 3£,175 t ll> 19 
8,551,155,1911 
F4 1540 DATA 551,201,555,206,2, 
199,555,76,245,10,165,197,13 
3,551,155,158,5747 
94 1E50 DATA 133,252,230,251,16 
5, 551, 208, 5, 530 r 55E, 159, 5, 13 
3,41,32, 199,2550 
04 1260 OATA 11,195,2,197,76,20 
8, 10, 155,75, 133, 41, 32 t 175,11 
,76,30,1404 
34 1570 DATA 11,165,170,208,34, 
IBS, 1S7, 133,251,165, IBB, 133, 
£5£, 198,253,153,5942 
A5 1260 DATA 2,133,41,35,133,11 
p IBS ,2, 137, 76, 208, 3, 76,5, 11. 
169,1327 

9E 1250 DATA 100 , 1 33 , 170 , 155 , 15 
9 p 133,253, 165, 197 , 133 , 551 , IB 
5, 166,133,252, 530 P 57B7 
93 1300 OATA 253,159,2,133,41,3 
5,139,11, 155,5, 137,76,208,3, 
75, 1555 
65 1310 DATA 11,96,195,553,501, 
£00 p 175, B, 165, £52 , 240 , 28, 501 



7B 

EC 

4G 

5D 

FA 

92 

BB 

75 

59 

DA 

85 

06 

BC 

EC 

AF 

be 

OE 



, 1,240, 19,2255 

1320 DATA 165,75,240,5,163,1 
00,76,151,11,169,0,133,5,159 
, 100, 133, 1638 

1330 DATA 73,55,165,551,501, 
54, 176,232,35, IBOp 3, 1B3, Op 13 
3,79,95, 1965 

1340 DATA 155,171,240,506,32 
,540, 11, 165,78,540,6, 165, 75, 
133,41,32,2005 

1350 DATA 125,11,96,169,0,13 
3,41,32,125, 11,99, 3E, 155, 11, 
155,79, 1594 

13B0 DATA 506p4p 155, 171,208, 
1,95, 185,75,209,251,35,240,1 
1, 155,2,2005 

1370 OATA 137,79,508,11.155, 

2,201 , 100,540, 235, 159, 100,13 

3,5,96,189,2107 

1390 DATA 0,133,2,95,165,253 

,41,7, 170, 181,94, 133,77, 165, 

251,41, 1809 

1390 DATA 7,170,55,159,0,105 
, 202, 15,252, 133, B3, 155,77,37 
, 99, 201 , 1759 

1400 DATA 0,240,5,169,100,13 
3,78,36, 169,0, 133,79,95,35,9 
1,6, 1426 

1410 DATA 185,20,72,195,21,7 
5,32,91,5, 166,20,72, 165, 51 p 7 
2,32, 1191 

1420 DATft 91,5,150,3,104,153 
,97,0. 135, 16,249, 165,20,5,21 
, 240 , 1466 

1430 DATA 67, 155,39, 197, 100. 

144, 55, SOB ,B, 165,37, 197,93, 1 

44,57,216,2025 

1440 DATA 24,165,97,101,50,1 

33,37, 165,96, 101 , 21 , 133 ,9B , 5 

4, 165,99, 1541 

1450 DATA 101 fc 20, 133 ? S^, 

100,101 ,2L, 133, 100,32, 170, 12 

, 13B, 100, 19B. 15B3 

14B0 DATA 35,150,255,177,99, 

145,97, 152,209,4, 190, 100, 199 

,38, 136,32,2157 

1470 DATA 157 , 1 E , E08 , 233 , 3E , 

17B, 15,96, 35,170, IE, 160,0, 17 

7,39,145,1729 

14B0 DATA 57, EOO, 208, 4, 530, 1 
00,230,98,32, 157, 12,206,240, 
35, 17B, 12,2036 




FB 1430 DATA 96,165,50,508,2,13 

6, £1, 138,50, 165,20,5,21,96,1 

EO, 155, 1520 
OA 1500 DATA 1 , 4 1 , 252 , 133 , 1 , 3B , 

165 ,1,9,3, 133 , 1 , 88 , 36 , 32 , 91 , 

1143 

BO 1510 DATA 6,155,20,75,195,21 
,75,32,31,6,165,20,72,166,21 
, 72 , 1 169 

90 1520 DATA 32,91,5, 155,21,208 

, 37 p IBB, 20, 104 , 133, 21 , 104, 13 

3,20, 104, 1365 
41 1530 DATA 133, 9B, 133, 100, 104 

,133,97,133,33,530,97,209,2, 

230,95, 160,2055 



13 1540 DATA 0,139,145/99,35,15 

7, 12,240,6,76, 132, l£, 76, 72, 1 | 

79,99,1471 
37 1550 DATA 35,81,6,195,20,5011 

,8, 144,3,76.72, 179,141,227, 1 [ 

3,32, 1409 
37 1560 DATA 252,13,32,91,6,32, 

540, 13, £08, ID, 173,21,208,45, 

225 , 13 , 15B3 
BB 1570 DATA 141 , 51 , 208, 35 , 35 , 3 | 

1,6,32, 101,6, 174,227,13, 157, 

248, 199, 1755 

07 15B0 DATA 32,91,6,35,228,13, 
174,557, 13, 157, 33,206,32, 91 , 
6, 174, 1523 

FA 1590 DATA 257, 13 , 13B , 10 , 170, 

141,557, 13, 165.50, 157,0,208, 

165,51 , 240,1315 
52 1500 DATA 15,173,15,209,13,51 

55, 13, 141, 16,209,76,99,13, IT] 

3,16,508,1609 
FB 1610 OATA 45 , 225 , 13 , 141 , 16 , 2 | 

09,32,91 ,B, 32, 101,6, 174,557, 

13,157,1499 
24 1520 DATA i , 20B , 32 , 31 , 6 , 32 , 2 ] 

40, 13,209, 12, 173, 29.206,45,21 

£6,13,1537 

08 1630 DATA 141 , 59 . 20B , 75 , 139 , 
13,173,29,209,13,225, 13, 141, 
23, 208,35,1577 

70 1640 DATA 91,6,32,540,13,2081 

p 12, 173, 23, £08, 45, 22B, 13, 141 | 

,23,208, 1652 
57 1650 OATA 76 , IBB, 13, 173, 23, 2 I 

08, 13,EE5,13, 141,23,206,32,9 

1,6,32, 1445 
44 1660 DATA 240,13,509,12,173. 

if B i ^06,49, 556 ,13, I'll , 26 . ECS , 

75, 197, 13, 1B23 
77 1570 DATA 173, £8 , 209 , 13, 225, 

13 , 14 1 . 2B , 208 , 3E , 51 , 5 , 32 , 229 

, 13, 141, 1580 
Fl 1660 DATA 37,508,35,91,8,32, 

E28, 13, 141,39,209, 173,51, 208 | 

, 13,255, 1674 
1C 1E90 DATA 13, 14 1 , 51 , £08 , 95 , 0 | 

,0,0, 165,20, 201, 15, 144,3,76, 

72, 1175 

FA 1700 DATA 17B , 155 , 20 , 9E , 155 , 
ED, 201 ,5, 144, 3, 75,72, 178, 165 | 
,20,5B, 1501 
9F 1710 DATA 166,200,56,169,0,4 
2,136,509,292, 141,225, 13, 73, 
555, 141 ,226,2305 
2B 1750 DATA 13,99,32,253,174,3 
2,512,225, 32,91,6, 165,20,72, 
165,51 , 1909 
11 1730 DATA 72,35,91,9,155,20, 
154, El, 104, 133,21,104, 133,20 
, 169,50, 1E75 
AE 1740 DATA 32,216,555,96,32,21 
53, 174, 32, 512,525 ,32, 91, S,1S| 
9,0,166,1991 
59 1750 DATA 20, 164,51, 32,213, 5| 
55,36,555, 120, 169,49, 141,20, 
3, 199,234, 1931 
6F 1760 DATA 141,21,3,173,26,201 
6,41 , 254,141,56,206, 173, 14,5| 
20,9, 1 , 1B59 
CC 1770 DATA 141,14,220,99,96,11 
65, 20, 201, £00, 144,3,76, 75, 17 | 
8, 165,50,1903 
4F 1780 DATA 36,155,21,540,9,151 
5,20,501.64, 144,3,76, 72. 17B, f 
96,32, 1582 
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1C 1790 DATA 31,5,35,559,13,10, 
10. 10, 10, 133, 254,32.31,6,35, 
539, 11BB 

01 1BQQ DATA 13,24,101,254, 133, 

554,96, 173, 17,200,9,3b, 141 , 1 

7,208, IBB B 1649 
C6 1310 DATA 56,141,24.203.95,1 

73 s 17,208,41,223,141, 17,509, 

1B9, 19, 141,1851 
BF 1920 DATA 24,208,35.32,91,6, 

155.21,206,55,155,50,501,25, 

176, 19, 149S 
CO 1930 DATA 72, 3g, 31, 6, 104, 170 

, 165,51,508,9, 164 ,20, 192,40, 

175,3, 1473 
54 1840 DATA 76,540,255,75,72,1 

79,0, 163,0, 133, £50, 163, 144, 1 

33,^51,169,3315 



55 1950 DATA- 555,133,174,133,19 
3, 163,3, 133, 175, 133, 194, 163, 
515, 133,252, 159,5530 

Al 1360 DATA 154,133,553,100,0, 
177,550, 145, 174 ,530 ,250 ,£09, 




2,530,551,230,5947 
EC 1070 DATA 174,508.2,530,175, 

155,550, 1 37 ,252, 509 ,534, 165, 

£51 ,197, 2513 ,505,3155 
AS 1660 EAT A 555 , IBS, 114 , 133, 10 

7, 169,155,133,186, 159,6, 133. 

153,153,0,133,5555 
DB 1830 DATA 105,153,0,35,144,2 



55, 163,5,76,51, 155,500,203,2 

45,35,507, 5145 
99 1900 DATA 255, 540, 551 , 501 , 49 

,240,4,501,55,49,530,41, 15, 1 

33,105,75,2225 
14 1310 DATA £34,545,147,17,17, 

73 t 79 , 80 , 35,34, 32 , BB , S3 , 65 , 7 

3,57, 1455 
47 1950 DATA 53.32,79,95,77,65, 

58,95, 13, 17,57,55,33,61,49,3 

5,945 

FA 1B30 DATA 47,32,53.73,83,75, 
51,35,55, 32,75, 63,35,57,58,4 
5,915 

El 1940 DATA 35,0,77,57,70,73,7 
6,53,0,0,0,0,0,0,0,0,454 

5D 1950 DATA 0,0,555,555,255,55 
5, £55,0,0,0,0,0,0, 0, 0, O fc 1275 



PROGRAM: DEMD 



4A 10 REM ** EXAMPLE 1 ** 

CA 20 P^IiMr w CCLR,DDWN3 MOUE PI EH 

□RY FROM CHARACTER BET" 
50 30 PRINT" STARTING AT 51500 

( SCBQO ) TO THE " 
55 40 PR I NT " BITMAP SCREEN AT 5 

7344 C5E0DD?" 
E2 50 PRINT" IN BLOCKS OF 9 r IE 

. CI CHARACTER 3 " 
5D BO PRINT" THEN FILL REnAlNIN 

G SCREEN WITH" 
5D 70 PRINT" CHARACTER NO. l£7. 

AF 30 ED5UB2SS0:RErl GET AN V KtY 

TO CONTINUE 
AA 90 SYS1044.2, 10:REM SET CQLO 

UR5 RED ON L/RED 
1C 100 6YS103B:5Y51Q41:REM CLEA 

R AND COLOUR 8ITMAP 




B3 110 5 Y5 1033; REn BITMAP ON 

4D 120 READ RDW,CDL.R3i 

B6 130 IFRDUI-S5STHEN53Q 

D9 140 FOR C-ITDLENCREJ 

BO ISO SBM-57344+CRDW*320)+CCQL 

•B: : REM POSITION ON BITtlAP 
3C 160 CHS-MID3fCRSii,C, 1} = CHAR-AS 

CtCHE) 

5E 1?0 1FCHAR>-54THENCHAR-CHAR- 

54: HEM CONCERT ASCII 
CI 190 I FCHAR> -36THENCHAR-CHAR- 

54 1 REM TO CBJ1 DISPLAY 
OE 190 CN-S12DD+([:HAR*9>:REM WH 

ICH CHARACTER TD PRINT 
4A 200 SVSl05B,SBH a CIM,9;RErl flOU 

I MEMORY FROM CHARACTER SET 

TO BITMAP 
E7 510 CDL-CDL+1:NEXT 
E4 220 GOT0150 

DO 530 SY51Q58, 25, 100,1, 157: SYS 
1058,300, 100,1,157: REM FILL 
BITMAP 

38 540 BETAS; IFAE- 11 "THEN540 
38 250 SYS1035:REM BITMAP OFF 



CD £60 FRINT^CCLR^ " r GQTD430 

32 270 REM DATA IN FORM OF CROW 

, COLUMN, "TEXT "D 
CF 260 DATA 6 , S , "L 5U p 5*20 , SI ] " 
3E £30 DATA 7 t 3 t "CS- , SPC50, 5-] " 

86 300 DATA 6,3, "C5-] THIS IS A 

N EXAMPLE C5-]" 
38 310 DATA 9 , 3 , " L 5 ^ B 5 FC20 , 5— 2 " 

5B 320 DATA 10,9, "tS-II OF WRIT 

ING TEXTtSPC3 p 5-:i" 
07 330 DATA 1 1 , 9 , "t S- , SPC20 , S-] 

SD 340 DATA 15,3, "C5-] TO A BIT 

MAP SCREEN LS-l" 
31 350 DATA 13 . 3 p " L , SPC50 , S-3 

FF 

66 350 DATA 14, 9., *'EB-3 USING T 

HE MEMORY CB-II" 
DB 370 DATA 15 , 9 , " Z 5- , 5PC50 , S-D 

?F 

B5 360 DATA 15 a 3, "LB- , SPC4JM0UE 

COMMAND , t SPC3 , B-l " 
C5 390 DATA 17, 9, "CS- s SPCEO, S-J 

3D 400 DATA 16 , 9 , " C 5 J , 5*20 , SKJ H 

71 410 DATA 256,355, "": REn END 

□F DATA 
50 420 REM ** EXAMPLE5 ** 
DA 430 PR I NT" C DOWN 1 USING THE A 

BDUE BITMAP" 
BE 440 PRINT" HERE IS AN EXAMPL 

E CF USING" 
65 450 PRINT" THE SPLIT-SCREEN 

CDfiFIAND TO" 
43 460 PRINT" ROLL THE BITMAP U 

P ANO DOWN " 
OF 470 PRINT" THE SCREEN*" 
BD 490 PRINT* PRESS ANY KEY TO 

END DEMO . H 
EA 490 G0SUBS990 

59 500 5¥S1023;REM RASTER INTER 
RUPT ON 

97 510 5Y51041 : REf1 COLOUR BITMA 
F 

5C 550 SYS1059, 1 : REM SET B ITMAF 

AT TOP OF SCREEN 
C9 530 GETA$: IFAS- HH THENS70 
35 540 5Y5102S,0: REM SPLIT SCRE 
EN OFF 

BC 550 5Y51025:REM RASTER OFF 



8A 
AB 
IB 

D5 
OB 
F2 
EC 
45 
84 
OB 

CS 

AC 

SA 

37 
A5 
C4 

57 
39 
EA 

07 

55 



75 



5B0 PR I NT " C C LRU " : GDT0G50 

570 FOR R-l TO 500 

5B0 SY51Q5S , R : REM! SCREEN SPL 

IT 

590 NEXT 

GOO FDRR-EQQ TO 1STEP-1 
510 SYS102S,R 
550 NEXT 
530 S0TQ530 

640 REn ** EXAMPLES ** 

550- PRINT" CDOUN: USE MEMORY 

FILL COnn AND TO COLOUR" 

560 PRINT" PARTS OF BITMAP A 

ND THEN USE IT n 

670 PRINT" TO CLEAR PART OF 

THE SCREEN, M 

5SG PRINT" PRESSING ANY KEY 
TO GET NEXT PART " 
630 PRINT" OF DEnO . u 
700 G0SU52360 

710 SYS104l;EEM COLOUR BITMA 
P 

750 SYS1032:REM SlTnAP ON 
730 [jETAS^ IFAS-""THEN730 
740 5YS1044, O, 5; REM SET COLD 
URS 

750 C"PEEK( 254 > : REM 554 IS T 
HE CURRENT COLOUR 
750 5 C RE EN-1 024+431 S5+C 5*40 > 
: REM SCREEN ADDRESS IN DANK 
3+5 LINES DOWN 
770 NO- 15*40: REM NO-NUMBER D 
F LINES * 40 CHARACTERS TD T 
HE LINE 




FO 
AA 
C5 



OE 

54 
Dl 
69 
OA 
AS 



790 SYS1071, SCREEN, NO, C 
730 SETA$ : I FAS-" "THEN790 
600 SI TnAP-57344+C 350*5 5 : ND- 
320*15: REn CLEAR 15 LINES 5 
LINES DDUN 

BID SYS1071,EITMAP,ND,0:REM 

FILL MEnDRY WITH C03 

920 BETAS : I FAS- M » IH EN620 

830 SYSl035:REn BITMAP OFF 

640 PRINT"CCLR:" 

650 REM ** EXAMPLE4 ** 

960 PRINT"CD0UIN1 NOW FOR SOM 

E LIME DRAWING DEMOS " 
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LISTING 



4F 

Cl 



72 
AF 
D7 



19 
7C 
SF 



H70 BOSUB 2390 : POKE53290 T O 
990 5Y51044 1 7 I 0;SYSTD41:5YS1 
033 l REM SET COLOUR, COLOUR A 
NO CLEAR BITT1AF 
B30 SYS1032:REM BITMAP ON 
900 FOR X-QT03195TEPS 
910 SYSlOSOpX.O^, 199*1: REM 

draw LINE command 

920 NEXT 

330 F0RY-OTni335TEP5 
S4Q SYSlOSO.OpYpSlS.Y, 1 : REM 
1-PLOT 
,3B 950 NEXT 
GG SGO F0RD-QTD319STEP4 
01 970 B-319-D 

no seo sysioso+e, 0,8, 199,1 

63 3 90 NEXT 

£3 1000 F0RD-QTD1BSSTEP3 

17 1010 B-199-D 

P\7 1020 5Y51050,0 k B, 31S^Dp 1 

90 1030 NEXT 

5E 1040 F0RO-0TO133STEF3 

AS 1050 B-lBS-D 

7F 106Q 5 Y5105Q, 0,0,319,6, 0 : REM 

0-UNPLOT 
BO 1070 NEXT 
Gl 1090 F0ED-OTD3135TEP4 
7E 1090 B-319-0 
B9 1100 5Y51050, 5,0,0, 199,0 
09. JL110 NEXT 

40 1120 BETAS: IFM-""THEN11E0 
E9 1130 5YS1035 s PRI NT" L CL.RD w 
40 1140 RET1 ** EXAMPLES ** 
BE HSO PRINT ^DOWNH NOW FOR SO 

ME CIRCLES" 
73 1150 609UBE330 
BO 1 170 SYS 10 44 p 4 p 3 : SYS 1039 ; 9YS 

1041 5 BY51032 
ES HBO FOR R-ITOIBS 
C2 1190 SYS1053 plBQp 3.00, R, 1: REM 

CILCLE COMMAND CI -PLOT) 
36 1200 NEXT 

30 1310 FOR R-1E3TD1STEP-S 

SB 1220 5YS1G53 r 1B0 p 100 s R , 0 : HEM 

O-UNPLOT 
90 1230 NEXT 

14 1240 BETAS: I FAB" " "THEN1240 
39 1250 P0KE5325O,5 
DD 1E60 SY51044, 14,7:SYS1041 
F3 1270 SYS1039:HEM CLEAR BITMA 
P 

AO 1290 F0RU-IT0100 

51 1E90 5YS1053, 0,0,0, 1 

9B 1300 NEXT 

92 1310 F0RD-ITO1OO 
BB 1320 ft- 199-0 . 

AC 1330 SYS1053 1 D r ftpOpl 

C3 1340 NEXT 

7ft 1350 FORD- 1 TO 100 

CB 1360 X-319-0: Y-199-D 

IB 1370 SY51Q53, X, Y, D, 1 

EB 13BD NEXT 

A2 1330 FORD-1T0100 

93 1400 X-313-D 

BO 1410 SYSlOSa.X.DpD, 1 
13 1420 NEXT 

F2 1430 GETAS: IFAi£-" ph THEN1430 
SB 1440 FORD-100TOlSTEF-e 
09 1450 X-319-D 
4E 14G0 SY51Q53,X, 0,0,0 
41 14 70 NEXT 
5E 1490 FORD-100T015TEP-2 
55 1490 X-319-BeY-L99-D 
5B 1500 SY3l053pX a Y : D d O 



69 1510 NEXT 

16 1520 F0RD-10OTD15TEP-2 

AA 1530 fl-193-tl 

39 1540 5YS1053,D, A,D,G 

9B 1550 NEXT 

BB 1560 F0RD-100TD15TEP-2 

OB 1570 5Y51053,D,D,D,0 

BO 1590 NEXT 

20 1590 GET AS : I F A £ * " " T H EN 1 590 
El 1600 5YS103BiPRINT ih CCLRl" 
BB 1610 5Y51035;FRINT"CCLR]" 
Al 15 SO REM ** EXAMPLES ** 
OE 1B30 PR I NT ,? C DOWN 3 DRAW SOME 

SHAPES OiM SCREEN AND " 
AE 1640 PRINT 11 USE THE FILL AND 

PATTERN FILL COMMANDS, " 
EA 1G50 PRINT" FINALLY ERASING 

EUEHYTHING ASA IN" 
Bl 1GG0 60SLIB2990 




BE 1670 SYS1044,E 1 3i 5YS1041 ;5Y5 
1038 

OE IB 3D 5Y5103E 

FF 15B0 Pl-lsREn 1-PLOT 0-UNFLOT 

IS 1700 5Y51050 , 10 □ 35 a 35 + 10 , M ; R 

EM OR AU LINE COMMANDS 
BE 1710 SY91050 1 35plO i e0 l 35 l M 
BS 1720 5Y510SD ,60,35. 35 ,60,11 
B2 1730 SYS105Q. 35, 50 ,10,35,11 
F5 1740 5Y51050, 260, 10,310, 10, M 

BE 1750 SY51050,310, 10,310,60,M 

BB 1760 SYSlOSO^lOpSQpPEO.BOpM 

3 A 1770 SYS10SO,2GO,GO P 250 P lOyfl 

5B 17B0 5 Y51 050, 2G0, 165,285, 140 

90 1790 SYSlOSO, 295, 140,310, 165 

M 

43 1300 SYS1050,310, IBS ,235,150 

.n 

3F 1910 SYSlOSO, 205, 130,260, 165 

21 1930 5YS1050, 10, 140, 60,140, M 

40 1630 SYSlOSO, GO, 140, SO, 150 P M 

57 1B40 SYS1D50 5 G0 S 190, 10, 190.M 

19 1B50 SYSlOSO, 10 ,190, MM 40, M 

Al IflGO 5YS1053 p 110 p 100 , 40 , M : RE 

II DRAW CIRCLE COMMANDS 
75 1970 SYS1053, 1GQ, 50,40, M 
EF 1990 5Y51G53, 210, 100,40,11 
FE 1990 SY51053 > 150 J 150,40,M 
OC 190D 5Y5l053,lEQ a 100,50,M 
AD IBID BYSlD5£pllOp 100, Mi REM F 

ILL AREAS OF BITMAP 
DC 1920 5Y510SG, 160, 50, M 
FA 1930 SYSlOSS^lO, 100,M 
01 1940 SYS1Q56, 160, 150,M 
24 1950 SYS1059 t 35p35 p M,4B: REM 

FILL WITH PATTERN 
7E 1660 5Y51053 ,2B5,35,M,50 :REM 
F1LL NO J S REPRESENT 



33 1370 SY51059, 265 , 1E5 , M , 51 : RE | 

M <1,2,3,4> RESPECTIVELY 
AE 1 960 S YS 1059 , 35 , 165 , M , 52 ; REM I 
SEE SCREEN DISPLAY COOES IN I 
USER GUIDE 
OC 1990 SYSlOBSjES, 100, M, 102 
23 2000 SYS1059, 255,100^, 102 
FF 2010 SY51055 T 5p35pM, 102 
El 2020 5Y51053,315 7 35,r% 102 
45 2030 5Y51059.315, 165,11, IDE 
BB 2040 5YS1059.5, 155,^1, 102 
4F 2050 5Y5l059 t 160 T 100,M,102 
9E 2060 EFM-lTHEN5Y510Ge p 409BO, 
57344 , 9000 : REM STORE BITMAP 
UNDER BASIC ROM 
OG 2070 BETAS r I F " 1P TMEN2070 
5E 2 0 B 0 I F M- 1 THENM-0 : 60T0 1 700 : R 

EM SET MODE TO Q-UNPLOT 
BD 2090 5YS1035rPRINT"CCLR:" 
82 2100 REM " EXAMPLE7 ** 
A4 SI 10 PR I NT "L DOWN 3 MOUE THE P 

REUI0U5LY STORED BITMAP" 
DA 2120 PRINT" C SEE LINE 2130 

IN ABDUE DEMD3" 
4C 2130 PRINT" FROM THE STORAGE | 

SPACE UNDER THE BASIC" 
BE 2140 PRINT" ROM BACK INTO TH j 

E BITMAP SCREEN" 
55 S150 G05UB2S30 
BC 2150 5Y5104l;5YS!032 
49 2170 SY510BB, 57344, 403B0, 900 | 

0 : REM IIDUE DATA 
6A 21B0 GET AS: I FAS- hr "THENElBO 
91 2190 SYS1035; PRINT"! CLRD" 
3D 2200 REM *» EXAMPLES ** 
E7 S210 PRINT'TDQUN] MOUE BITMA 

p DATA TD MEMORY AT" 
BO 2220 PRINT " 2457B C 55000) i 

D THEN SAUE IT TD DISK" 
51 2230 PRINT" THEN CLEAR ElTMft | 

P AND LOAD TWE 5AUED" 
63 2240 PRINT 11 DATA DIRECTLY ; 

TO THE BITMAP SCREEN" 
Fl 2250 PRINT" AT 57344 ClEOOO. 

D2 £2S0 PRINT" PLEASE ENSURE TH 

AT THE DRIUE IS READY" 
53 2270 PRINT" BEFORE CDPJTINUII 

G WITH THIS DEMO- " 
£S 2290 PRINT" IF YOU WANT TO ! 

KIP THIS DEMO PRESS <S>" 
F9 2290 G0SUB299D 
9E 2300 IF A$- M S"THEN2330 
55 2310 SYS1032:5YS10 4 41 
C3 2320 SY310G9,2457G K 57344 a BOO! 
0 3 REM MQUE BITMAP DATA TO MEj 
MORY STARTING AT 24576 
BB 2330 SYS103G:REM CLEAR BITMA | 
P 

61 2340 SYS1074 k "DATA" , OB , 00 , S4 I 
57B , 32576 ; REM S A UE MEM . FROM | 
24576 TO 2457B+B000 
2F 2350 SYS1077 S "DATA ,? , 06, 00 , 57 | 
344 1 REM LOAD DATA DIRECTLY I 
NTD BITMAP 
EB 2360 GETAS ■ IFAE-" "THEN23B0 
C4 2370 SYS103S- PRINT"CCLR] " 
17 23S0 REM ** EXAMPLES ** 
6E 2330 PRINTS CLR,D0WN3 NOW FDl 
R A DEMONSTRATION OF THE SOU | 
ND ,P . 

2S 2400 PRINT" AND SFRITE SETUP | 

COMMANDS" 
CD 2410 G0SUB29S 0 ; P0KE53 2G0 , 0 : P ] 
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LISTING 



66 



BB 



OA 



BE 



OS 



ES 



03 



47 



BS 



12 



OS 

BO 
15 



BB 
DC 



DF 

17 

m 

5E 
FS 

8C 



oke532bi , o 

2420 5 Y5 1 030, 19,0 j PRINT "CPUS 
ON, SPCEB RUSQFF, SPC10 h ruson: 

CRUS0FF3 " 
24 30 SY51DBQ,B0,26^ PE?INT"EC* 
f SPCa,S£3":HEn PR TNT AT ROW- 
ei a COLUMN-29 

2440 SYS 1030, 21 i 2B j PRINT " CR 
USON , CI „ RUSDFF , C TG , RUSDN t C I B 
RUBDFF3 w 

5H50 5YS10B0,53 t 8tPRINT"E5FC 
2S3 ,s 

2460 SYSlO23;FIN-0 3 X-40: Y-25 
:GOSUB56B0 

2470 Ul-PEEKCliaR) : RE^I TEST 
MQICEi 

24B0 IF Ul-0 THEN60SUB272D : R 
En IF OFF THEM READ NEXT NOT 
E DATA 

2430 IF MC-5 THENS-D: REh USE 
DELAY TO CONTROL SPRITE P1DU 
EMENT 

2500 X-X+<S/SO^ Y-Y+CS/75J :R 
Efl LONGER NOTE PLAYS FASTER 
SPRITE PIQUES 

2510 SY5l0B5 p O,l s 0,7,)C,Y 3 l,l 
.IhIhMCiREH SPRITE SETUP COM 
NAND 

5520 IFFINc>lTH£NE470:REfl IF 

MORE NOTES 
2530 FOHD-OTD10 
2540 Y-Y+l 

2550 SY51055 , 0, 1 , 0 , 7 , }( § Y f 1 B 1 
, 1, 1,0: REnSPRlTE SETUP COtinA 
ND 

ESSD NEXT 

2570 U3-FEE.KC113Cn ; IF U3<>0T 

HEN257Q: HEM WAIT TILL UOICE 

3 FINISHED PLAYING 

S5B0 5YS105G: REM TURN OFF IN 

TERRUFT 

5SS0 ED5UB533D 

2500 SY51055,0,0 

5610 PRINT"CCLRV 3 : 60T03040 

2620 F DRD-0T0B3 - READ A; FDJCE4 

9152+D, A t NEXT 

2630 RETURN e REM PLACE SPRITE 




DATA IN SPRITE O £491550 
ED 2S40 DATA 000,000,000,000,00 

O p 000, 000,000 
C3 2650 DATA 000 , 000 , 000 , 000 , 00 

□ ,060,000,002 
4D 5SS0 DATA 130,153,045,170,16 

B, 170, 170, 170 
73 2B70 DATA 170,170, 170,238,23 

B p S39 , 1B7, 1H7 
SB 2BB0 DGTA 187,170,170,170,04 

E s 170 + 1BB F 00£ 
El 2530 DATA 170, 144, 005, 000 ,QB 

0,020,000,050 
57 2700 DATA 015 , 000 , 004 , 0B4 , 00 

0,051 h 000 > 000 
F7 57 10 DATA 000,000, OQO , 000, 00 

0, 000,000,000 
07 2720 READ LF , HF h D h J1C : REM BET 
NOTE DATA PLUS HULTICOL ECS 

EE LINE 354B5 
BC 2730 I FLF-2SGTHENE7B0 : HEF1 TE 

ST FOR END DF DATA 
SE 2740 S YS1CS2 , 1 h 15 s LF , HF , 0 , 24 



FC 
OE 

D3 

7D 

7E 
EL 

4F 
B7 
C5 
BB 
EC 
4E 
ED 
30 
54 
AB 
85 
7B 
SB 
72 
9A 
SB 
3D 
FS 
G3 



BA 

BC 
59 
SA 

ec 

76 
El 
BB 

2C 

C2 

17 
AC 



0,0,3,65, D : REM UDICE 1 
2750 SY510e5 ? E T 15,43, 137, 12B 
, ESS , 0 , 0 , 33 v 1 00 ; REN UO I DEB 
2760 SYS1065 1 3,15 h l43,GB,12B 
,£55 ,0,0, 129,100: REM U0ICE3 
2770 60 TOE 730 

£780 FIN-1 1 REM SIGNAL NO HOR 
E DATA SEE LINE 3SS0 
5730 RETURN 

2G00 DATA 53,7,75, El REM NOTE 
DATA 

2B10 DATA 23,6,75,1 

5B50 DATA 109,6,75,2 

2930 DATA 0,0,15,1 

5B4D DATA 54,3,75,2 

2B50 DATA 203,4,100,1 

5BG0 DATA 53,7,50,2 

2B70 DATA 23,0,50,1 

2BB0 DATA 10B, 5,50,2 

2GS0 DATA 0,0, 10, 1 

2900 DATA 54,3,50,2 

2310 DATA 209,4,75,1 

2920 DATA 107 S 14,20,2 

E330 DATA 47 1 1E 1 E0 1 1 

2540 DATA 516,12,20,2 

E350 DATA 0,0,5,1 

2350 DATA 10B,B,50,£ 

2370 DATA 153,3,40,1 

2390 DATA 256 ,0,0,0 

5330 SYSlOB0,S3,0 s REn SET CU 

R5DR AT S3 LINE, 6 CHARACTER 

5 ALONE 

3000 PRINT "CRUS0N3 PRESS ANY 
KEY ID CONTINUECRUSOFFV 
3010 BETAS ; IFA3-" "THEN3010 
30E0 RETURN 

3030 REM *» MEM/MAP AND COPTl 

ANDS PRINTOUT ** 

3040 PR INT n C DO WN3 THIS PART 

of the Program prints out" 
3050 print" a memory map and 
a list of the new" 

30BO PRINT" COMMANDS. SO IF 
YOU HAUE A PRINTER 1 ' 
3070 PRINT" MAKE SURE IT IS 
READY NDld," 

30BO PRINT" IF YOU DON'T HAU 
E A PRINTER THEN YOU" 
3030 PRINT" WILL JUST HAUE T 
0 REFER TO THE MAGAZINE " 
3100 BDSUB2SS0 

3110 0PEN2,4rSl5-CHRS(153 :BS 
S-CHRSCBO 




3 1 20 PRI NT*2 , CHRSC 14> " [ SPC13 
1NEW MEMORY MAP" 
AH 3130 Pf3INTttE,CHRSC143 1, CSPClE 

, CVlB3 ,h SIS 
FA 3140 PRINTtt2 

D5 3150 PRINTM5,SIS" [CA,S*lB, 

04 31B0 FRTNT*S,5I$" CCQ,S*1B 1 
CU3-192 BYTES STORAGE "BS$ 

F7 3170 FRINTttE,SIffi" E5-.5PC1B 
,S-3"BS5 

33 31BD PRINTttE,5I$" CS™, SPC1B 
,S-3"BSS 

C£ 3130 PRINTttEpSlS" CS-,SPC13 
tS^-BITMAF SCREEN C57344 - 
BS344i"BSa 

AS 3E00 PR!NT#5,SIS" CS- S SPC1B 



06 3210 PRINT*42 1 5IS" [S- a SPClB 
,S^3 OR STORAGE AREA^BSS 

01 3520 PRINTtt2 > SIS" :S-,SFC1B 
,3-1 "BSS 




DB 3230 PRINT #2,515" Eca p S*16 3 
CbJD"G5S 

CD 3240 PRINT#2,5I3" CS-.SNIB, 
S- 2 "BSI 

F3 3250 PRINT#2,SIS" CS-.SN1B, 
3^3 -UNUSABLE C! UIC, SID, I/O 
ETC.. :"BSS 

Bl 3EB0 PRINTttEjSIS" CS-,5N13 S 
3-1 "B5S 

73 3270 PRIMT#2 9 SIS" ECO, S* IB, 
CU3 "BSI 

4 A 3EBD PRINT #2, SIS" C5-.SPC16 
,S" 2 -CHARACTER SET C51B00 - 
5324BDCE5B " ; 

OE 3590 PRlWTttE, ia CHARS , " B BYT 
ESr'BSS 

91 3300 PRIMTttE , SIS'" CS- ,SPC1B 
,S-J"B5i 

BC 3310 PRINT#E,SIS" C CO, 5*16, 
GUI : -SPRITE POINTERS CS1132 - 
511993 H SS3 

71 3350 PRlNTtt5,SI«" CCD 5*16 
CLf]"B5S 

7E 333D PRTNT#2,SIS" C5-,5PC1E 
, S-1 -SCREEN riEliORY C5D17B - 
51175 3"BS$ 

BB 3340 PRINT#5,SIS H ECti k 5* IB, 
CW1"BS£ 

1A 3350 PRI NTttE , 5 I S" CS-,SPCie 
T S-:-DI5PLAY SPRITE STORAGE 
(0-153 C43152* 9 - 
AC 33B0 PRINT#5," -. 501753"HBS 
FB 3370 PRIMI#2 P 515" CCQ,5*13, 
CU3 "BSS 

DF 33B0 PR INTtt2 , SI S H CS-,5PC13 
, 3-3 -SPRITE STORAGE C 129 SPR 
1TES3"BSS 

SC 3330 PR3NTtt2,SIS" :S- p SPCie 
,S-1"BS!B 

B2 3400 PRINTMBpSlS-" II5-,SFC1B 
,5-3 OR CHARACTER SETS C4 5"B 
53 

26 3410 PRINT4E,SIS" CS-.SPCIB 
,S-3 H BSS 

DF 3420 PRINT4t2,5I*" CS-,SPC1B 
,3-2 OR BITMAP STORAGE CD'S 

04 3430 PRINT#5,SI$" C5-.SPC16 
t 5-] JP BSS 

BB 3440 PRINT#E,SI*" CS-.5PC1B 
,5-3 OR OTHER C40SBO - 43151 
5*B5I 

66 3450 PRINT#2,5IS" ECO, 5* IB 

17 34G0 PRINT#2,SIS P CS-.5FC1B 
,S-]-TOP OF BASIC C40353 3"BS 

EC 3470 FRlNTttE,5I£" CS-,SPC1S 
.5-^BSS 

EE 34B0 PRINTttE h SIS" CS-,SPC1S 
fc 5-3 J BSS 

3B 3460 FRlNT*5,5I$ rt CS-,SPC1B 
,S-3"B5^ 



YOUR COMMODORE SERIOUS USERS GUIDE 
25 



LISTING 



A6 3500 PRINTS, SIS" LS- t SN p Sn 

, SN B 5rt 1 SN J sn 1 5N i srt B .SN 1 sn a 5N 1 
sn^s^sisipSr^SN.sr^s-D* 

3510 PRINIt*S' a SIS"CSPC33rifltN 
BASIC MEMORY - 37162 BASIC 
BYTES FREE" 
53 3S30 PRINTttE, SIS" QS- T Sn,5N 

, sn , sn , sn r sn a sn , sn , sn , sn p sn p 
sn, sn a sn, sn, sn F sn , sh,s-i "BS$ 

3530 PRINTttE, SIS* CS-.SPCIB 
5— ] ?H BS5£ 

3540 PRINTttE. 5 IS" CS- S SFC1Q 
, S-3 P, BS£ 

FD 3550 PRlNT#e,srS" CS- P 5PC19 
j 8*3*689 

79 35B0 pRiNTtts.sis- cs^spcie 

t S-l -START OF BASIC C37SS:"B 

ss 

50 3S7Q PRINTttE P 5IS" CCO^*^, 
CWV'BSS 

35B0 PRINTS j SIS" CCD ,5*19, 
CLfH-NEW COMMANDS PROGRAM CIO 
SO -3734} "B 5$ 
AD 3590 FRINTttE,SI£ M EIS- h SNlB p 
5-1 "B5$ 

1C 3600 PRINTttE.SIiS 11 CH.S+IB, 
CXI- OPERATING SYSTEMS AREA 9 
ESS 



70 
KB 

7B 
AE 

08 
9S 

BU 

05 
5S 



F7 




BE 3G10 PRINTttE, SI« 
5E 3 6 EO PR I NTttE , " CURRE NT COLO 
UR STORED W - CE54!] " : PRINT* 

a 

93 3630 PRINTttE," UOICE CONTKD 
LS CFEEK TO FIND OUT IF UOLG 
E STILL ON]"; 
SB 3E40 PRINTttE, 11 1 -E. O-DFF , 10 
0-ON" 

43 3550 PRINTttE, "C5FC5IIU1-1139, 

U3*UE9 a U3-2130" 
SB 36B0 PR I NTttE ; PRI NTttE a " PIXE 
L ON OR OFF - PEEK (03) I.E. 
O-DFF , 100-ON" 
53 367D GD5UBE99Q 
5E 3GB0 PRINT#e,CHHSC14D"C5PC12 

3LI5T OF COMMANDS" 
FF 3BS0 PRINTttE, CKR4C1 43 "CSPCll 

P CYis:rsis 

4C 3700 PRINTS 

5B 3710 PRINTttE, "RECONFIGURE - 

avsioeo* 

B5 3720 FHINTttE s "CCT11D" 

57 3730 P R I NTtt 3 a " RASTER INTERRU 

FT ON - SYS1033" 
11 3740 PRlNT#E t "CCTIS]" 
OS 3750 PRINTttE,. "RASTER INTERRU 

FT OFF - SYS10EG" 
SC 3750 PR I NT tt E . " C ET80 3 " 
EA 3770 PRINTttE, "SPLIT-SCREEN - 

SVSIOES.Q OR 1-E00 ta 
33 37B0 FRIWTttE, "CCT1E, 5PC101 CO 

-OFF. 1-EQO-SCREEN LINE 3 " 
7G 3730 PRINTttE 

FC 3B0D PRINTS, "BITMAP ON - SY 
S103E" 

ED 3910 PRINTttE , "CCTSII " 
GB 3SE0 PRINTttE, "BITMAP OFF - S 
YS1035" 



3B30 P R IKTItE , "CCT103 13 
3940 PR 1 NT*3 , "CLEAR BI in A P - 
SYS1Q38 1 * 
3850 PRINTttE, "CCTlS]" 
3 BE 0 P R I NTtt E , " COLOUR B I TF1A P 

- SYS1041 H 

3070 PRINTttE, n tCT131" 

3660 PRINTttE „ "SET CURRENT CD 

LDUR - SYSlQ44 B 0-i5pO-15" 

3BBQ PRINTttE, JP ECT19, 5FC103CD 

RAW} (BACKGROUND}" 

3900 PR I NTttE 

3310 PRINTtt3 T ,h FLOT POINT ON 
BITMAF - 5Y51 047, 0-319 ,0-193 

,0-1-3" 

3920 PRINTttE, " [ CT30 a SFC1Q3 C X 

- COORD 1 C Y- COORD > C 1100 E 0 -UNLO 

T 




10 

03 



FO 

3B 

OC 



ES 



b9 
4F 

61 

B7 
EB 




C5 3930 PRINTttE, "1 -PLOT a 2-PEEK > 



3940 PRINTttE 

3350 PRINTttE a "DRAW LINE - SY 
S1050 s 0-313 s 0-199 s 0-319 a 0-19 
9 5 0-l w 

3SB0 PRINTttE, "C CT9 ¥ SFC101 CXI 

KYI5CXE3CYE?CI10DEr ? 

3970 PRINTttE 

3SB0 PRINTttE, fc, DRAtiJ CIRCLE ™ 

§YSiOG3pO-31SpD-lB3pl'lE9 1 0- 

1" 

3930 PRINT#E S CT1 1 , SFCIOKC 
X -COORO > < C Y -COORD 3 C RADIUS 3 Cn 
DDE)" 

4000 FRINT*E 

4010 PRINTttE, "FILL BITHAF - 

sys loss „ 0-319 , o-iaa , o-i " 

40EO PRINTttE, "CCT11 p SPClO] C X 
-CDDRD? C Y-CDDRD3 CMODE) " 
4030 PRINTttE 

4040 PRINTtt3 ? "FILL WITH CHAR 
ACTEH - SYS1053. 0-313 pO-lSS a 

0-1,0-ess 1 




51 



AS 

B7 



A7 



4050 FRINTttS p "tCTIS B SFC10] CX 
-COORD 5 CY -COORD ? CnDOE 5 C CH AR , 
NO 3 " 

40S0 PRINTttE 

4D70 PRINTttE, "SET SOUND - SY 

SI OEE B 1-3 > D-IB , 0-B55 „ 0-355 ? 0 

-SS5, 0-355 ,0-355, ; 

40B0 PRINTttE, "0, IB ,0-355 ,0-3 

55" 



3C 4030 PRINTttE p "CCT3 a 5FCSH CUD I 

CE)CUDLUnE?CLOUJ FREQ^ CHIGH F| 

REO)CA/D>CS/Rr f 
El 4100 PRINTttE, "ESFC19] CLOW PUl 

L5E3CHIGK PULSElCUflUEFORMKD| 

URATION) " 
BB 4110 PRINTttE 
99 4130 PRINTttE p "SET SPRITE - S| 

YS10G5 ,0-7,0-1, O-ESS ,0-15,0- 

aao.o-asSpO-ipO^i^s 

BO 4130 PRINTttE, " s 0-l,0- 15 a O-lS] 
1 1 

S4 4140 PRINTtt^/ h CCT10 s SFClO:CS| 
PRITE NO) COFF/Oro (SPRITE POl| 
NTER5 CCDLDUR> W ; 

33 HIBO PRINTttE, "CX POS)CY PDS3I 

H 

S3 41B0 PRINTttE. 'TSPC501CX EXP !J I 
(Y EXP)CF1ULTI ,CDL □FF/ON)<MC| 
1KMC E)" 
F4 4170 PRINIttS 

ES 4100 PRINTttE, "MOUE MEMORY - 
SYS 1059 , 0-S5535 ,0-65535, 0-3E| 
7G7 W 

51 4190 PRINTttE, "CCTll > SFCIOK A| 
DDRESS riOUE TDK ADDRESS t10UE| 
FROriV; 

EF 4E00 PRINTttE, " (LENGTH) " 
4C 4E10 PRINTttE 
51 4EED PRINTfE, "FILL MEMDRY - 

5YS1071 , 0-6S535. O-3E7G7 a .0-S5| 

5" 

E7 4E30 PRINTttE, "CCTll , SPClOKSl 
TART ADDRESS) CL ENETH > C NLM B E R | 

>" 

BA 4E40 PRINT#E 
EB 4ES0 PRINT#3 3 "SAUE nEflORY - 

SYS1074 ; - E SPC43 , QB a 00 , 0-G5S | 

35.0-S5535" 
94 4EG0 PRINTttE , "CCT11 n SPClOKFl 

ILE MRME) C DEiil CE ) COO 5 C MEFiDRY | 
START V; 

£3 4E70 FRINTflS, "CMEI1DRY FINISH] 
)" 

63 4EB0 PRINTttE 
ID 4390 PRINTttE 3 a *LOAD MEMORY - 

SYS1077, ^CSPC4] 1 p OB , 00 , 0-655 | 

3S" 

CB 4300 PRINTttE , "CCT11 , SPCIO^ CF I 
ILE NAME? CDEU'ICE^ C 00 > (LOAD a| 
□DRESS) " 

BO 4310 PRINTttE 

3D 43E0 PRINTttE, "SET CURSOR PDS| 

- 5YS1090, 0-34, 0-33" 
EE 4330 PRINTttE, "ECT14 a 5PC10U t R] 

□Ul > C COLUMN ) " 
SD 4340 PRINTttE: CLOSED PR INT "EC | 

LR3 * : END 
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Accessing the disk drive is child's play through the 

square window 



D 



iskOS is an operating system 
which employs windows to ease 
communications with a disk drive. 
Its ingenious routines interrupt 
without interrupting! After calling 
up DiskOS, programs can resume as 
though nothing had happened, 

Whenever you need to use one of 
the functions of DiskOS just press 
the CBM key with the CTRL key 
and a menu will appear at the top of 
the, screen. This may be done when 
running Basic or machine-code pro- 
grams and should be compatible 
with most of them because it does 
not use the IRQ interrupts. 

When selecting options use the 
first capita J letter of the menu name 
or option, After a command is com- 
plete, press the spacebar to get back 
to the opening menu. 

The QUIT option on all the 
menus will return you to the start-up 
menu at the top of the screen. 

Menu 1 - Info 

Press T for Info and the menu will 
appear. Just one item is contained 
on this one - a short note about the 
program. 

Menu 2 - Disk 

This allows access to the disk 
commands, 

DIR displays the directory 
which, unlike LOAD"$ ? \8, does not 
overwrite a Basic program. 

ERROR reads the disk status (if 
the red LED flashes). 

INIT reads in the disk informa- 
tion after a disk change. 

VAL is the validate command 
which cleans up the disk, and should 
always be used after SCRATCHing 
files. 



FORMAT is the same as the 
usual Basic command OPEN 
l>8J5 t "NEW:TEST DISK,64": 
CLOSE 1. 

RENAME will change a file 
name to another name, just type 
NEW NAME-OLD NAME and 
press RETURN, 

COPY will copy a file from one 
disk to another and will ask for the 
'"source" disk which holds the origi- 
nal and the 'destination' disk onto 
which the copy is made. 



Menu 3 - Misc 

KILL. This returns the C64 to nor- 
mal and disables the use of 



PROGE AH ■ D I 5K05 . EA5 



CTRL+CBM. SYS 49152 will res- 
tore it 

EXIT will let the computer earn 
on from where you interrupted it by 
pressing CTRL+CBM, 

Menu 4 - Screen 

COLOURS allows you to change the 
screen colours and the new setting 
will be maintained until changed 
again or SYS 49152 is called to 
restore the default values. 

DUMP#4 will dump the text 
screen at $0400 to the printer. If you 
design a screen using the cursor keys 
in Basic and go to the screen menu 
you can then print it out with this 
facility, 



DE 10 REM DISKOS 

3D 20 REM TYPE IN THIS PROGEGn Fl 
AND SGUE It DN A SPARE TAPE 
OR CASSETTE 

DD 3D REM WHEN YDU RUN IT riAKE 45 
SUfeE YDU HAUE CUED UP THE TA 
PE/DISK FDR SAUING DISKOS 

3D 40 REM WHEN USING DISKOS, LD D7 
AD USING ,B,1 AND TYPE NEW 

6D GO REM TYPE SYS 43152 TD BET 

THE DISKOS MESSAGE 38 

4B BO BL-252 :LN-S0 ;5G-4315 
5 

70 FDR L-0 TD BL;CX-0;FOR a- 75 

0 TD 15: READ A:CX-CX+A 
65 80 P0KE5358O, A;FOKE SA+LM6 + 

Dp A: NEXT D 
51 30 READ A: IF flXCX THENPRIMT 

"ERRDR IN UNE H lLN+tL*lCtt : ST 

OP EE 
Hfl 100 NEXT L 

OF 11D DATA 165,157,150,195,32, 

30, 171 , 163,14,141.32,206, 163 34 

,6,141,33,1834 
74 120 DATA 205,120,163,30,141, 

143 j 2 , IBS j 19i£ , 14 1 , 1 44 , 5 h BB L 3 SB 

B, 173, 141 s 1359 
74 130 DATA 2 , 201 ( 6 , £40 , 3 , 7B , 75 

,£35,130, 169,7s, 141 ,143,5, IB C7 
3, 235, 1886 
B5 140 DATA 141,144,2,66,173,54 



i £05 , 141 , S3 , 3 , 153 , 53 , 141 , 24 . 
50B, 169, 1751 

150 DATA 8,32,510,555,55,35, 
240,555, 140,60, 3, 142, Gl, 3, 16 
3,0, 1G66 

160 DATA 133,555,32,195,135, 
3B P 115, 135, 169, 1 , 133,555,32, 
159, 135,24,2155 
170 DATA 175,60,3,174,51,3,3 
5. 240 ,555, 32, 17 1 135, 173,53,3 
■ 141, 1621 

ISO DATA 54,205, SB, IBS, 1, 133 
,£04, 168,5, 150, 133, 32,30, 171 
,35,226, 1B55 

130 DATA 555,240,551,501,73, 
208,3/75*107, 133, SOI , GB, 50B a 
3, 7G, 75, 5535 

500 DATA 194,501,77,206, 3, 7B 
,65, 195, 501 ,83,208, 3, 7B, 189, 
504, 7B, 2063 

£10 DATA 155,198,163,0,133,1 
3B, 35, 154, 147, 17, 35, 5B , 73, B3 
,75,73,1645 

220 D*=iTA 33,35,05,45,45,50,3 
2,40,05,83,65,32,67,84,85, 7S 
? 33B 

230 DATA 43,57,66,77,41,13,0 
, 153,0, 133,251, 133,553, 163,4 
,133, 1552 

£40 DATA 555,169,160,133,254 
, 16S , 255 , 50B , 50 , 160 , 0 , 177 , 25 
1,1 45, 253, 200, 5B0£ 
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250 DATA 206,548,230,552,230 
,294, 165,352,501 ,9,509,238,3 
5,160,0, 188,2950 

ii esq data i i i?? l esi i i4S !fc s5i s s 

DD , 208 , 249 ,230, 25* , 230 , 252 , 1 
65,202,201 ,9,3076 
270 DATA 209 ,339 ,£30,1,96,14 
7 , 147 , 19, 176, 192,135, 192, 192 
, 135, 192 , 176,2592 
,59 2BQ DATA 192 , 192 , 192 , 192 , 192 
, 192, 170, 132, 192, 132.192,132 
; 192, 178, 192,135,3044 
04 530 DATA 132.192,192,192,192 
, 192 , 174 , 13 , 19 3 221 , 35 , 501 , 70 
,70, 79,35,5070 
SB 300 DATA 221,32,190,73,93,75 
,32,221,32,205,73,83,67,32,2 
51,32,1070 
EE 310 DATA 2 1 1 , 67 , 92 , G9 : B9 , 73 , 
32,221, 13, 18, 173.102, 192 a 192 
p 132 a 192, 1933 

320 DATA 132,177,192,192.192 
, 192, 192 , 135, 177, 192, 192 ,135 
.192, 132, 192, 177,3027 
2D 330 DATA 192,192,192,192,182 
,192,192,192,103,13,0,169,11 
7, 160*133, 35,2409 
91 340 DPT A 30,171,76,173,133,1 
3,17, 17, 10, 171 , 192, 135, 192, 1 
92, 192, 192 > 2037 
4B 350 DATA 213,13,18,221,193,0 
0,79,35, B4 a 32 ,. 251 ,13,10, 173 , 
192.192,1919 
42 360 DATA 195,192,132,192,199 
, 13,0, 32,220,555,240,251,201 
b 99, 240, 15,2510 
32 37Q DATA 201,78,200,543.104, 
104, 7S, 115, 195,79.191, 193,96 
p 32 a 228, 255, 2392 
El 380 DATA 240 , 251 a 201 , 65 , 200 , 
247,76 , 167 . 193, 209, 220 , 163 , 5 
00, 160,193,32,2990 
3F 390 DATA 30,171,35.170,137,7 
6,115, 182,19,17,17, 17, 17, 17, 
17, 17, 1127 
|BC 400 DATA 17,17,32,32,10,179. 
195, 192, 192, 192 ,192,132,192, 
192, 192, 192,2212 
7E 410 DATA 192.192,192,192,192 
,192,192,192, 192, 192, 192,192 
,192,195,192,192,3072 
AO 420 OATA 132,192.192,192,182 
,192,192,174,13,32,32,16,521 
,32, 195, 73, £135 
7E 430 DATA 93.70,207,211,32,36 
,49,45,90,32,68,09,32, 199,40 
,209, 1508 
86 440 DATA 05.99.72,08,87,32,2 
02,65, 79, 32, 39,56,56, 32,221 , 
13.1200 

33 490 DATA 32,32,16,173.192,19 
2,192, 132, 182, 192 , 195 , 192 , 19 
2, 192, 192, 192,5559 
6C 450 DATA 192,192,192,182,192 
,192,192.182, 192, 192, 195, 192 
,192, 192, 192, 192 ,3075 
D4 470 DATA 192,132,192,132,192 
,199,13,0,109,03,160,194,32, 
30 , 171 , 76 , 5077 
21 460 DATA 18,195,98,19,17,17, 
29,29,29,29,29,29,53, 19.219, 
192,984 

11 430 DATA 1 32 a 192, 182, 192,195 



DB 



07 



5D 



36 



74 



,219,13,29,29,29,29,29,53,29 
,10,551,1534 
60 500 □ATA 1 36, 73 a B2,4G,32 ,32, 
221, 13,29,29,29,29,28,29 , 29, 
19,915 

99 910 DATA 221,137,92.92,79,62 
, 32,221,13,29,29,29,59,29,29 
,29, 1212 

9C 520 DATA 19,251,201,70,73,94 
,46, 32,221 , 13, 29,53,29,29, 29 
,53,1151 

530 DATA 29,18,221,214,65,76 
,45,32,32,521, 13,29,29,28,29 
,29, 1112 

540 DATA 29,29,19,221,211,57 
,82,46,32,32,221 ,13,29,29,23 
.29,1117 

£3 550 DATA 29 , 2" , 29 , IS, 221 , 198 
, 79 , 05 , 77 , B5 , 94 , 221 , 13 , 58 , 23 
,29, 1232 

AB 560 DATA 29,29,29,29,18,221, 
210,08,79,65,77,69,221, 13,29 
,29, 1215 

570 DATA 29,29,29,29,29,19,2 
21, 195,79,00,89, 32,35,551, 13 
,29,1104 

580 DATA 29,29,59,29,29,29.1 
6 , 221 , 209 , 85 , 73 , 04 , 32,35, 221 
p 13.11B2 

090 DATA 29,29,29,29,29,29,2 
8, 18, 173, 192, 192 , 135 ,192, 192 
,192,189,1735 
7D 000 DATA 13,0,35,529,250,540 
,251,201, 91,208,3, 76, 115, 192 
,201,88,2154 
CI 610 DATA 208,3,70,17,139.201 
, 69, 208 , 3 , 76 , 5X2 . 190, 501 , 73 , 
200,3, 1950 
□A 520 DATA 7E,B, 198,201,88,208 
,3,76,32, 198,201 ,03,209, 3, 7B 
IB 1073 

00 630 ' DATA 200 , 201 , 70 , 206 ,3,78 

, 132,200,201,82,203, 3,76, 220 

,500,201 ,2201 
F5 640 DATA 97,200,3,76,49.201, 

75,18,190, 169. 100, 160, 195,32 

,30,171,1749 
E9 650 DATA 76,254,195,95,19,17 

, 17 , 29 , 59 , 29,29, 23 I, 29 , 29 , 29 , 

23,905 

OA 900 DATA 29,28,29,29,29,19,5 

18, 192, 192, 192, 192, 192, 192, 2 

13,13.29,1795 
ID 570 DATA 53,29,28,29,28,28,2 

9,59,29,23,29,29,29,18,221,2 

03,819 

EA 990 OAT A 73,79,70,32,32,221, 
13,29,29,23,29,29,29,28,29,2 

9,764 

OF 690 DATA 29,29,29,23,59,19,2 
21, 197, BB, 73, 34, 32, 32, 221 ,13 
,53,1153 

700 DATA 29,29,28,29,29,28,2 
3,29,23,29,28,29,29, 18,221,2 
09 , 825 

710 DATA 05,73.94,35,35.221, 
13,53,59,29,29,59,29,29,53,2 

9,901 

5C 720 DATA 23,29,29,29,29,18,1 
73, 192, 192, 192 ,192,135, 192, 1 
99, 13,0, 1590 
7A 730 DATA 32,559.205,240,251, 
201,81 ,208,3,76, 115, 182,201, 



14 



91 



65, 2OB,0, 5396 
5C 740 DATA 108,9,32,210,255,96 
,501,70,503.230,169,14,141,3 
2,508, 163,2218 
EB 750 DATA 6,141,33,208,188,21 
, 141,24,509, 158,9,32,210,255 
,76, 148, 1600 
EE 760 DATA 227,109,148,100,195 
, 32, 30,171,169,35, 133,251,16 
9,251,133,197,2452 
EB 770 DATA 168,0,133,188,103,1 
, 133 , 183 , 163 , 9 . 133 , 195 , 158 , 8 
6,133,135,2090 
54 700 DATA 35,213,243,160,186. 
32, 180,259, 165.105,35,150,25 
5,150,0, 133,2395 
A8 730 DATA 144,150,3,132,261,3 
2, 165,255, 133,552,173,141,2, 
201 , 1 ,540, 2285 
□D 300 DATA 549,104,144,206,47. 
32, 195,255, 154, 144 , 509 , 40 , 1 9 
4,201, 135,208,2579 
□5 810 DATA 226,150,255,32,205, 
189, 169 . 32 , 32 , 510, 2S6, 32, 169 
,255,100, 144,2030 
3F 020 DATA 208,18,170,540,5,32 
,210,255,76, 107, 135, 109, 13,3 
2,210,250,2197 
A5 830 DATA 150,2,208,191,32,65 
,245,159, 180, 150, 196, 32 , 30 , 1 
71,32, 178,2001 
97 640 DATA 197,75,115,192,147, 
200 , 79 , 7 5 , 5 8 , 32 , 2 1 1 , 200 , 20 1 , 
196,212,32,2238 
19 990 DATA 84,79,35,509.09,85, 
93,59,32,204, 73,93,94,73,79, 
71, 1403 

Bl 860 DATA 46.17,13,0,17.209,8 
2 , 59 , 03 j 03 i 32 , 39 , 21 1 , 00 , 55 , B 
7, 1112 

96 970 DATA 59,39,32,70,78,82,3 
2,196,73,83,75,507,211,32,50 

5,59,1554 
F3 360 DATA 70,95,46,0,54,160,0 
, 102 , 21 , 32 , 240 , 555 , 169 ,23,16 
0, 197, 1692 
EB 090 DATA 32,30,171,159,15,16 
2,9,160, 15,32, 106,255, 169,0, 
32, 188, 1525 
19 900 DATA 255,32,192,255,162, 
15 , 32, 188, 255 , 30, 507 , 250, 201 
, 13,240,5, 2349 
5A 910 DATA 35,210,255,209,244, 
169.15,32, 185,255,32,504,255 " 
,35, 175, 197,2511 
4F 920 DATA 76,110,192,32,176,1 
97, 98,32, 18, 176 , 192 , 192,192, 
192,195, 182,2205 
44 330 DATA 195,192,195,132,182 
,192,192,192,192,132,192,192 
,192,192, 132, 182,3072 
DO 340 DATA 192,192,192,192,182 
, 182, 182 , 192 , 192, 195, 192, 192 
, 132,192,174, 13,2675 
67 950 DATA 32,18,221,211^4,65 
,84.85,83,58,32, 32,35,32,32, 
32, 1133 

64 950 DATA 32,32,32,32,32,32,3 
2,32,32,35,32,32,32,32,32, 32 
,512 

CD 370 DATA 32 , 32 , 32 , 32 , 32 , 32 , -S 
2,221,13,32,19,173,192,152,1 
95,192,1449 
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B2 BBO DATA 192,132,132.132,135 

p 192, 192, 192, 195, 192, 192, 132 

t 13B, 193, 192, 192,3072 
BB 990 DATA 192,192,192,192,2 92 

,1^,191,135, 195, 192, L3E, 192 

, 192, 192, 192, 192,3072 
EE 10QQ DATA 1B9, 157, 1S7, 157,15 

7.157, 157,157, 157, 157, 157, IS 

7, 157, 157,157, 157,5544 
70 1010 DATA 157,157,157,157,15 

7, 157, 157,157, 157, 157, 157, 15 

7,157,157, 145,0, £343 
2D 10E0 DATA 32,228,255,201,32, 

208, 243,35, 169,8,32, 177,255, 

32 , 163,255,2412 
F2 1030 DATA 4 1 , 1 2B , 208 , 5 , 169 , 1 

11, 32, 147, 255, 159,0, 152,0, IS 

9,222,137,2035 
39 1040 DATA 32,155,255,232,201 

, 13, £09,245,32, 174 , 5SS , 75 , 2 1 

2, 156,0,56,2357 
4D 1050 DATA 0,0,0,0,0,0,0,0,0, 

0,0,0,0,0,0,0,0 
BB 1060 DATA 0,0,0,0,0,0,0,0,0, 

0,0,0,0,0,0,0,0 
D2 1070 DATA 0,0,0,0,0,0,0,0,32 

, 19, 198, 169, 73, 141,222, 197, 1 

051 

79 10B0 DATA 75,184,197,152,0,1 

69, 13, 157,224, 197,232,554, 39 

,203,246,95,2454 
BF 1090 DATA 32,19,198,165,96,1 

41,222,197,76, 164, 197, 152,0, 

169, 100, 157,2109 
09 1100 DATA 251,6,232,235,55,3 

, 208,245, 162,0, 142, E4,3,32, 1 

57, 196,5004 
EF 1110 DATA 32,223,255,240,245 

, 201, 20, 209, E. 32, 133, 198,76, 

SI , 198 , 201 , 2337 
22 1120 DATA 13,203,3,159,100,1 

74, 54,3, 157, 251 ,6,96,201,91, 

49,3, 1593 
OS 1130 DATA 76,61, 193, 201 , 32 , 1 

5,3,75,61, 198,201,42, 209,3,7 

6,61, 1513 
45 1140 DATA 198,174,94,3,41,53 

,157,251,6,238,64, 3, 174, E4 , 3 

,235, 1739 
B7 1150 DATA 65,3,209,195,95,17 

4, 54,3,224,0,209, 1 , 35 , 202 , IB 

9, 100, 1796 
61 1150 DATA 206,64,3,174,54,3. 

157,251,6, 157,253,5, 95, 174,6 

4,3, 1BB0 
B5 1170 DATA 159,150,157,251,5, 

35, 32, 16, 176, 192, 192, 192, L92 

, 192, 192, 192,2409 
09 11B0 DATA 195,192,192,192,19 

2, 192, 192, 192, 1 32 , 1 32 , 1 32 , 19 

2, 132, 132, 192, 192, 3075 
BD 1190 DATA 192,192,192,192,13 

2, 192, 192, 192, 192, 192, 192, 19 

5, 165, 174, 13, 32,2715 
1A 1200 DATA 18, 221 , 32 , 32 , 32 , 32 

,35,32,35,32, 32, 32, 32,32,32, 

32,597 

AB 1210 DATA 32,35,35,35,35,35, 
32 , 32 , 32, 32, 32, 32 , 32 , 32 . 32 . 3 
2,512 

AF 1220 DATA 32, 32, 32, 32. .32. 32, 
221 , 13,32, 18, 173, 192, 192 ,195 
, 195, 192, 1609 



B7 1230 DATA 192,192,192,192,19 
2, 192, 195, 195, 192, 192,192, 19 
5, 192, 192, 192, 192, 3072 

49 1240 DATA 192, 192, 192,192,19 
5, 192, 192, 192, 192, 192, 192, 19 
2, 192, 192, 192, 169,3069 

FF 1550 DATA 157, 157, 157, 157, 15 
7, 157, 157, 157,157,157,157,15 
7, 157, 157, 157, 157, 2512 

89 12S0 DATA 157, 157 , 157 , 157 , 15 
7, 157, 157, 157, 1S7, 157, 157, 15 
7, 157, 157, 157, 157,2515 

23 1270 DATA 157,157,157,157,14 
5,0, 32 , 18, 175, 192,192,195, 19 
2, 192, 192, 192,2343 

A4 1280 DATA 192,192,192,192,19 
5, 192, 192, 192, 192, 192, 192, 19 
2,192,192 ,195, 192, 3072 

DC 1590 DATA 192,192,192,192,19 
2, 192, 192, 192, 192 , 192, 192,19 
2,195,174,13,32,2715 

A9 1300 DATA 13,221,32,35,35,35 
, 32, 32, 32, 35, 32, 32 , 32 , 32 , 32 , 
32,997 

C4 1310 DATA 32,32,32,32,32,35, 
32, 32, 35, 35, 3? , 32 , 32 , 32 , 32 , 3 
2,512 

77 1320 DATA 32,32,32,32,32,32, 
221 , 13 , 32 , 18 , 221 , 32 , 32 , 32 , 32 
,32,857 

90 1330 DATA 35,32,32,32,32,32, 
32 , 35 , 32 , 32 , 32 , 32 , 32 , 32 , 32 , 3 
2, 512 

B6 1340 DATA 32,32,32,32,32,32, 
32,32,32,35,35,35,32,32, 32,2 
21, 701 

FE 1350 DATA 13,32,18,173,192,1 

92, 195, 192, 192, 152, 195, 192, 1 

92, 195, 192, 192,2540 
74 1360 DATA 192, 162, 192, 192, 13 

2, 192, 192, 192, 192, 192,192,13 

2, 192, 195, 192, 192, 3072 
IB 1370 DATA 192,192,192,192,19 

5, 192, 192, 192, 199, 157, 157,15 

7, 157, 157, 157, 157, 2B24 
FE 1360 DATA 157,157,157,157,15 

7 , 157 , 157 ,157,157, 157 , 157 , 15 

7, 157, 157, 157, 157, 2512 
A2 1390 DATA 157,157,157,157,15 

7 , 157 , 157 , 157 , 1S7 , 157 , 157 , 15 

7, 157, 145, 145,0,2331 
FB 1400 DATA 169,17,141,65,3,24 

,150,0, 1S2, 14,32,240, 255, 169 

, 166, 160, 1777 
2D 141 D DATA 199,32,30,171,155, 

88, 160,200, 32, 30, 171 , 32, 19, 1 

99,32,43, 1585 
FA 1450 DATA 198,173,54,3,240,1 

1 , 169,83, 141,222, 197, 32,103, 

200,76, 184,5095 
A6 1430 DATA 197,76,115,192,209 

,76,53,65,93,59,35, 197,78,54 

,69,85, 1S92 
79 1440 DATA 32,193,73,76,69,78 

,55,77,59,32,212,79.35,211,6 

7, 92, 1452 
IE ,1450 DATA 55,94.57,72,46,13, 

0, 162,0, 189,251,6,201 , 100, 24 

0,14,1510 
74 14S0 DATA 201,31,16,3,24,105 

,54. 157,224. 197,232,76, 105,2 

00, 163, 13, 1917 
AS 1470 DATA 157,224,197,56,153 



,20,141,55,3,24,160,0,1.62,14 
,32,240,1704 
46 1490 DATA 255,159,166,150,19 
8, 32, 30, 171 , 153, 184, 160,200, 
32,30,171 ,35,2159 

34 1490 DATA 19 , 198 , 32 , 43 , 1 9B , 1 
73,64,3,240, 11, 159, 7B, 141,22 
2, 197, 32, 1920 

□B 1500 DATA 103,200,75,184,197 

,76, 115,132, 137.79,94,69,62, 

5B, 32 .39,1732 
OF 1510 DATA 40,196,73,93,75,32 

, 206 , 65 , 77 , 63 , 41 . 44 . 73 , 59 , 39 

.32, 1213 

5F 1550 DATA 196,73,32,32,199,7 

9,82,77, 55, B4. 13,0, 169,35, 14 

1 , 55, 1393 
5A 1530 DATA 3,24,150,0,162,14, 

32, 240, 355, 169, 165, 150, 199, 3 

2,30, 171, 1816 
19 1540 DATA 169, 16, 160,201,32, 

30, 171,32, 19, 13B.32.43, 196, 1 

73,54,3, 1541 
95 1550 DATA 240,11,169,82,141. 

222, 137,33, 103,200, 7E.1B4, 19 

7,76, 115, 192,2237 
99 1560 DATA 510,69,73,55,77,53 

, 59 , 32 , 39 , 40, 205 , 59 , 97 , 32 , 20 

6, 55, 1402 
2A 1570 DATA 77,69,41,51,40,207 

? 7B, 53, 206, 65, 77, 53, 41 ,39, 13 

,0, 1149 

BE 1590 DATA 32,19,205,169,17 1 

41,55.3,24,150,0, 152,14,32,2 

40,255, 1535 
51 1590 DATA 159,166,150,199,32 

,30,171, 159, 157, 150,201,33,3 

0, 171 , 32, 19, 1907 
02 15DD DATA 199,32,43,193,173, 

64, 3,240,75,32, 103,200, 32, 12 

5,203,159, 1090 
E3 1510 DATA 122,150,202,32,30, 

171 , 32 , 207 , 202 , 35 , 515 , 202 , 76 

, 243, 502, 159,2237 
A7 1620 DATA 240,160,501,32,30, 

171 , 32,53,203, 169,2, 32,135.2 

55,32,204,2010 
6E 1530 DATA 255,169,62,150,504 

,32,30, 171,32,207, 202, 169,32 

, 160,204,32,2121 
D9 1B40 DATA 30,171,32,110,204, 

32, 165,203,32, 138, 204,32,504 

,255,32, 176,5051 
BF 1650 DATA 204.75,213,136,76, 

115, 192, 509, 75, 69,65,93,59, 3 

2, 197, 73, 134B 
59 1550 DATA 94,59,82,32,133.73 

, 75 , 69 , 79 , 55 , 77 , 69 , 32 , 94,79, 

32, 1193 

AD 1570 DATA 195,79,90,93,46,13 
,17,32,32,32,35, 32,32,32.32. 
35,507 

93 1BB0 DATA 35,32,32,32,32,32, 
32,32,32, 32 , 32 , 32 , 32 , 35 , 32 , 3 
2,512 

54 1550 DATA 32,32,32,32,32.32. 
32, 32, 32, 32, 32, 32 , 35 , 32 , 1 3 , 0 
,451 

AB 1700 DATA 145,32,32,32,32,32 
, 32,32,210,69,65, 69, 73, 79, 71 
,32, 1035 

35 1710 DATA 46,45,46,35,194,75 
, 73 . B7 , 75 , 32 , 206 , 73 , 45,32, 4B 
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,48, USE 

24 1720 DATA 4B , 13 , 0 , 24 , 160 , O , 1 
65 , 14 , 32 , 240 p 255 ( 163 , 70 , ISO , 
199 s 32, 1573 
A2 1730 DATA 30,171,163,44,160, 

202,32, 30, 171 ,7G, 151, 193, 15? B4 
,515,65, 8E, 134B 
6F 1740 DATA 78,73,79,71,33,35, 

195,79, 30,55,35,515, 73,76,75 33 
,35, 1312 

C4 1750 DATA 137,32,55,93,59,35 
,133,78,99,32, 303 , 32 , 73 , 71 , B 
2,55,1507 
A4 17B0 DATA 77,13,23,23,16,201 
,7S S 35, 505,69, 77,73,82,89, 32 
,46, 1156 

34 1770 DATA 46,46,33,195,79,73 

,84,73, 73, B5, 63, 32, 195, 79, BO FF 
,99, 1340 

30 L7B0 DATA 35,40,99,47,78,41, 
35, B3, 13,0, i45, 145,145,59,53 
,23,357 

03 1790 DATA 13,205,75,65,67,69 
,35,510, 197, 133, 196,32, 135, 7 
3,93,75, 1730 
9E leOO DATA 35,501,79,35,195,8 

2 , 73, 85, 53, 35 , 40 , 510 , 69 , 84 , 8 FB 
,,5,85,1451 
60 1810 DATA 79 , 4 1 , 17 p 17 , 17 , 1 3 , 

32, 35, 32 ,32, 32, 32, 35,32,32, 3 FO 
2,503 

C4 1920 DATA 32,35,35,35,32,32, 
35,35,35,35,35, 32, 32, 32 , 35, 3 
2,512 

ED 1030 DATA 32 , 35 , 32 , 32 , 32 , 35 a 

35,32, 32, 32,35,35,35,13,0,32 BB 
,451 

IF 1940 DATA 228,255,501,13,208 

, 249,95, 159,5, IBB, B, 1E0,2,35 OA 
, 185,255,2556 
DO 1350 DATA 173 , E5, 3, 162, 146, 1 

50,203, 35,199,255,32, 192, 255 FB 
, 165,2, 32, 20B3 
S3 I960 DATA 138, 255, 95, 169 , 15 p 
162, B, 160, 15,35, 199,255, 1E9. 
0,32. 1B3, 1341 
6? 1370 OAT A 255,32,132,255,152 

,15,32, 135,255, 32,207, 255.20 63 
1 ,4B. BOB, 23, 2370 
14 1BB0 DATA 32,207,255,201,48, 

509, 16, 163, 15,32, 195,255, 163 AD 
,2,32, 195,2031 
74 1990 DATA 255, 32 , 215 , 202 p 75 p 

111,201, 163, 15.32. 135,255, 16 D9 
9,2,35, 195,2155 
□8 1900 DATA 255,75,212,196,159 

, 1, 133,252, 1E9.B, 133,253, 160 7C 
,0, 35,207,2266 
35 1910 DATA 255,145,252,230,25 
5,506, IS, 152,2,32, 105,203,23 
0,253, 165 ,253,2763 
74 1920 DATA 197,56,506,3,76,21 
9,203, 36,144.80,557, 165,552, 
133.254, 165,2419 
94 1930 DATA 253,133,255,162,5, 

32, 105,203,96,254, F.I , 7, 169,2 E4 
1,7,201, 1941 
i DA 1940 DATA 59,509,9,169,49,15 

7,21, 7,502 p 7B a . 105, 203, 96, 165 1 
,0,169,1710 



1950 DATA 224,197,157,145,20 

3,201, 13,240,5,532,224, 16,50 

8 ? 341, 142,65,2514 

1960 DATA 3,95,0,0,0,0,0,0,0 

,0,0,0, 0,0,0,0,99 

1970 DATA 0,0,0,0,0,0,163,1, 

1 33 , 252 , 169 , 9 , 133 , 553 , 1B3 , 54 

, 1341 

1980 DATA 133,1,160,0,56,155 
, 252 , 225 , 254 , 165 , 553 p 559 p 255 
, 176, 18, 177 p 2523 
1990 DATA 555,35,510,255,230 
,252,509,236, 162,5,32, 159,20 
4,530,553,509,2922 
200O DATA 227,169,55,133,1,1 
55, 5,32, 156,204,55,54, 160 P 0 P 
152,21, 1604 

5010 DATA 35,540,555,169,166 

,160,198,35, 30, 171 , 169,555,1 

60,503, 32, 30, 2305 

2020 DATA 171,32.138,504,35, 

204 , 255, 32 , 175 , 137, 104 , 104 , 7 

6, 115, 192, 18,2050 

2030 DATA 57,57,44,199,73,76 

p E5 , 32 , 212 , 79 , 79 , 32 , 204 ,79,7 

B r 7I ,1440 

5040 DATA 32,212,73,32,195,7 
3,80,53,44,49,55,44,48,49, 13 
,0, 1101 

2050 DATA 32,32,32,32,32,32, 
35 , 515 , 85 , 73 , 94 , 73 , 79 , 71 , 32 p 
4S,37B 

2060 DATA 46 , 46 , 32 , 194 , 76 , 73 
, 67 , 75 , 32 , 205 , 73 , 46 , 13 , 0 , 1H5 
,145,1261 

2070 DATA 145,145,145,25,23, 
59, 1B P 50B, 7B,B5,67,S9,35 P 215 
, 210,501, 1583 

2080 DATA 512,197,32,135,73, 
93,75,35,201,73, 35, 196,95,73 
, BB, 53, 1717 

5090 DATA 32 ,40 , 5,10 , 69 , 84 , B5 
. 32, 7B, 41 ,17, 17 p 17 p 13,0, 169, 
1 , 355 

2100 DATA 165,8, 1EC a 1,32, IBS 
,255, 173,55,3, 162, 146, 150,20 
3,35,199, 1937 

2110 DATA 555,32,152,255,162 
, 1,35,201 ,255,35, 16^,2,32, 19 
5,255, 159,2303 

2120 DATA 1,35,195,255,159,1 
5,35, 195,255,76,204, 555, 222, 
21,7,199,5153 

5130 DATA 21 ,7, 501, 47, 20B, 9, 
153,57, 157,21,7,202,75, 156,2 
04,95, 1B3B 

5140 DATA 162,0,169,0,157,0, 
8,232,224,40,206,546,96,163. 
133,150,2070 

5150 DATA 204,32,30,171,76,1 
12,205, 19, 17, 17,59,29,23,23, 
29,53, 1057 

DATn 25.25,59,23,2B P SS, 
59,59, 59,29,25,25,23,59,59, 1 
8,453 

5170 DATA 219,132,135,192,19 

2, 152, 195, 133, 195, 173, 13,23, 

59,29,29,59,2092 

2180 DATA 29,59,29,29,29,29, 

28 ,55 , 25 , 25 , 29 , 59 , 58, 29, 23, 2 



9,464 

AS 2180 DATA 13,251,135,79,75.7 

3, 95, 95, 93, 32 p 251 p 13, 25, 59,2 

9,59, 1300 
F9 2200 DATA 23,29,59,23,23,23, 

59,59,29,29,29,53,59, 29 p 58 p 5 

9,454 

B3 5210 DATA 29,19,221,196,95,7 

7,60,35,35,55,32,221, 13,23, £ 

9,29, 1178 
9D 2250 DATA 29,59.23,25,29,29, 

23,29, 23, 29,59,29,23,23.29,5 

3,464 

88 2230 DATA 53,53,18,521,205.5 

5,73,64,32,32, 32,32,251,13,5 

9, 29, 1169 
Bl 2240 DATA 23,29,59,29,29,29, 

29,28,53,59,59,29, 25,29,29,2 

3 , 464 

9B 2250 DATA 29,29,23,16,173,19 

2, 132, 195, 135, 195, 185, 192, 13 

5,183,13,0.2015 
95 2250 DATA 35,558,255.540,251 

,201,81,208,3,76, 115, 195,501 

,58,508,3,2352 
83 5570 DATA 76 , 13B , 205 , 501 , 67 p 

206 , 533 , 76 , 245 , 205 , 1B9 , 1 , 133 

,555,32, 155,2440 
5F 2560 DATA 195,169,4,133,196, 

163, 125, 133, 164,169,0, 1E2 , 4 

133, 113, 134,5011 
F3 2290 DATA 114,133,183,133,19 

5, 32, 132,255, 166, 164, 35,501 

255, 152,25, 169,2421 
EE 23DD DATA 13,32,210,255,32,2 

55 , 255 , 240 , 46 , ISO , 0 , 177 , 1 13 

133, 103,41,5035 
9E 2310 DATA 63,6,103,35,103,15 

,2,9, 15B, 112,2,9,54,35,210,2 

55,. 1150 

62 2320 DATA 200,152,40,509,230 

, 155, 24, 101 , 113, 133, 113, 144 

5,230, 114,202,2198 
FE 2330 DATA 509,505,159,13,32 

210 . 255 , 32 , 204, 255 , 155 , 156, 3 

2, 135,255,75,5459 
A4 2340 DATA 115,132,159,3,150 

505,32,30, 171, 159, 108, 160,20 

6, 32,30, 171 , 1355 
BD 2350 DATA 76, 14 , 207, 13, 17, 17 

, 17, 17, 17, 17,17, 13,32,32,32 

32 , 575 

A3 2360 DATA 32,32,48,32,45,46 
46, 32, 194, 76,65,57,75, 32,32 
35,967 

23 2370 DfiTA 55,32,45,46,32,207 
,82,65,78,71,69, 13,32,32,32 
32,325 

35 2390 DATA 32,32,49,32,45,45 
46,35,515,72,73, 84,69,32,32 
32 , 924 

CF 5390 DATA 57,32.46,46,46,32 
194 , 32 , 73 , 37 , 76 , 13 , 32 , 32 , 32 
32, 920 

76 2400 DATA 32,32,50,35,46,46 
46 , 46 , 46 , 32 , 510 , 69 , 69 , 32 , 32 
32,B51 

D5 2410 DATA 65,32,45,45,45,32 
510,63,68,32,50, 13,0,32,32, 
2,805 
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46,45,46, 32, 135 p 

Be, eee 

IB 2430 DATA 32,56, 
199,92, E9, 89,32, 

32,ee3 

30 2440 DATA 32,32, 

32,356 
3H 2450 DATA 32,57, 

199,95,68,88,32, 

32, 335 
SI 2460 DftTFi 32 s 32, 

46,HB,32, 199 ? B2, 

32,912 
F3 2470 DATA 32 , BB s 

,93,69,69 j 78, 32, 

32,333 
E5 2480 DATA 32,32, 

45,46,46,32, 134, 

32 , 335 
77 2490 DATA 32,53, 

194,76,05,69, 35, 

32 , S72 
E0 2500 DATA 32,32, 

46, 32,217,53, 75, 

32, 375 



32,51,32,46, 
33,65,76,32, 

32,46,46,32, 
49,13,32,32, 

32,52,32,46, 
SO, 76, £9,32, 

32,46,46,32, 
50, 13, 32,32 s 

32 , 53 , 3B , 46 , 
66,63,79,32, 

32,46,32, 199 
50, 13,32,32, 

32,54,32,46, 
76,85,63,32, 

32,46,46,32, 
50, 13,32,32, 

32,55,32,46, 
75 , 79 , BY , 32 , 



Bl 5510 DATA 32,70,32,46,46,32, I 
133,32,53, B3 h 32 7 51 ? 13,0, 155 ? 
56, 10X8 

£5 2520 DATA 16C , 207 , 32 , 30 , 171 , 

32,170, 207 , 141,32, 206 , 169 , 94 

,160,207,32,2052 
ID 2530 DATA 30,171,35,170,207, 

141 , 33 , 206 , 169 , 132 , 160 , 207 , 3 

2,30, 171,32, 1925 
IF 2540 DATA 170,207, 141 ,,134,2, 

76, 115, 192, 13, 17, 32, 32,212,8 

3,60,69, 1561 
45 2550 DATA 32,195,73,58,53,32 

r 1 38 , 79 , B5 , 32 , 1 94 , 79 , 62 , 68 , 6 

9,62, 1440 
A5 25B0 DATA 32,195,78,76,79,95 
, 82,46,45, 45^45, 45,32,0, 13, 1 

7,320 

53 2570 DATA 32 , 32 , 212 , 69 , 60 , 69 

,32, 195,73, 5B S B3, 32, 136,78,3 

2,32, 1380 
2B 2SB0 DATA 134,65,67,75,71,76 

, BB , 32, 195 , 79 , 76, 79, 95, 92, 46 

,46, 133B 

34 2530 DATA 46,45,32,0,13,17,3 
2,32,212,33,30,59, 32, 195,79, 
66, 1042 



2600 DATA 69,32,198,73,32,32 
,212, 33,88,64,32, 195,79,76, 7 
9,85, 1491 

2510 DATA 82,46,46,46,46,46, 
4B , 46 , 32 , 0 , 32, 226, 255, 540, 25 
1,201 ,1B43 

2650 DATA 71,15,247,501,48,4 
8,243,201,65, 16,4,32,210,265 
,36.32, 1786 

2630 DATA 510,555,56,233,55, 
95,0,0,0,0,0,0,0, 0, 0, 0,905 
2540 POKE193,OrP0KE134, 192:P 
0JCE174, 136:FOKEi75,207 
2650 P0KE187,7:FDKE1B6 7 6;P0K 
Eie3,6 ; P0KEie6,S:REn SUB5TIT 
UTE POKE 196,1 FOR TAPE 
2B50 P0KE195,O 
2S70 SYS623B4 



1C 



97 



IE 



79 



26 



9B 
96 




Fill in your name and address and give 
this form to your newsagent. 

m <^^» ^^m- Hi — — t aw *— — ■ m 

Please order me a copy of YOUR 
COMMODORE and reserve/ deliver 
me a copy every month. 



NAME , . . 
ADDRESS 



Newsagent: This magazine is made 
available to your wholesaler through: 
S,M r Distribution Ltd 
6 Leigham Court Road 
Streatham 
LONDON 
SW16 2PG 



Tel; 01-677 8111 
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Address your Christmas cards in plenty of lime with 
our useful address database 



Mi 



.ailing List 128 uses the 40 
column screen in 128 mode and 
produces a handy database of names 
and addresses on cassette or disk* 
When you have entered ail the ad- 
dresses in the file, they can be 
printed out onto labels that should 
be available from your local com- 
puter dealer. 

Your address file doesn't have to 
be printed, you can use it just to 
keep all of your friends addresses 
together in one place. When you 
enter the addresses you will be asked 
for a telephone number which can 
be entered if you're using them for 
reference but if you wish to have 
your addresses printed out, you can 
either enter part of the address in 
this space or leave it blank. When 
you're entering addresses it isn't 
necessary to put in commas and full 
stops because these are all automati- 
cally inserted. 

Enter 

There are five lines of data that can 
be entered including the name and 
telephone number (if required), Up 
to 1000 addresses can be held in one 
disk or cassette file and the number 
of each address is displayed at the 



top of the screen along with the 
maximum number of addresses, 

Read 

All of the addresses can be viewed 
on the screen in order of entry or, if 
your looking for a particular per- 
son's address, you can just enter a 
name and the relevant address will 
be shown. 

As you scan through the File, the 
current address number and total 
number of addresses in memory are 
shown at the top of the screen. 

Print 

When you are ready to print your 
addresses* position the printer head 
about 5mm from the top of the first 
label and press FL AH of the ad- 
dresses will then be printed in order 
of entry 

Erase 

When you wish to erase an address 
you can either scan through the 
addresses and erase them as you go 
along or you can use the MATCH 
NAME option where you just enter 
the name and the entry will be 
erased. 



Load and save 

All your addresses are saved into a 
sequential file named 128 MAIL 
LIST. If you are using a disk drive, 
the disk status is shown in the form 
of 00,ERROR MESSAGE,00. All of 
the error types are explained in the 
Technical Information section of 
this Guide. 



Change 

If an address or telephone number 
changes s the file can be updated by 
scanning through the addresses and 
changing them as they appear on the 
screen by using the MATCH option. 
You can easily change any line 
of the address by entering the line 
number and typing in the new infor- 
mation. As you change the address 
its new form is shown at the top of 
the screen. 



Exit 

When this option is selected you are 
asked whether you have saved your 
new addresses. If not, type N and 
you will be taken back to the main 
menu. 



i 



PRDGRAH ; HAILING LIST 12B 



10 REM *** 

■ffftttttAtffff 

30 REM * 

EB * 

70 RED * 
TH * 

90 REH ™« 



J1AILINE LIST 1 
BY JOHN EE5UDR 



100 REH nalLlNG LIST FEDGRA 
fi ** 



110 KEY1, "1":KEY2 P "S"^KE^ H 3" 
; KEY4 , "4" 

1E0 KEYS, "5" : KEY6 , J *S" t KEV7 , "7" 
: KEYS P "B" 

130 X-L001 :DIMNSCX? .FlSCX) ,DSCX 

} ^SCXJ P FSCX3 :N-0 

14E COLORE, 2; CDLDR4, 6: COLORS .1 

IBB PRINTCKH5CB3 :ET?AFHIC1 ,1 

160 COLOR 1 , 1 : PRINT lCHARI , lef, 2, 

" HA I HNS LIST " p l 

1765 B0X1 P S0 B 5C, 123 , 130 : BDX 1 a 17 

,47,117, i27=BQXl 1 14 , 44 , 114, 124 

100 B0X1, IBS ,1130,270, 1B03 BDX1 p 



162,9? ,267, 177^ B0X1 , 153 , 34 > 264 
, 174:EDX1 1 5 1 5,314, IBS 
130 CHftRl ,15,4, ,p lSS " P l 
200 CMAH1 , 3,B, "Fl " ENTER" 
510 CHAR1 , 3, 10, J 'F2 - READ" 
KB CHAR1,3, 12/T3 - LOAD" 
230 CHAR 1 ,3,14, M F4 - SAUE M 
340 CHAR1,21 S 14, "F5 - PRINT" 
2S0 CHARlpSljie.'TB - CHANGE" 
BBS ChiARl ,El,lB t M F7 - ERASE 11 
£70 CHAR1 j 21 j 20 , "FB - EXIT" 
200 CHAR1 p 2S # S"| "BY ?l 
330 CHAR1 . 20 N 0 , ''J OHM 9D5UDRTH " 
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► 



300 


GETKEYC$ 


3S0 PHlNTjPHINlTflBCe) "NATCH WH 


1S50 


FRINT "ENTRY # *VI j *DP* 5 N 


310 


I FCS- " 1 " TH E N □ □ 5UB400 


ICH NAME H jj ■ INFUTTS 


1550 


PR I NT "NAME: ";NSC I } 


3S0 


T FCS- "S "THE NGO5UB7E0 


3S0 LETT$-T5+" , " 


1570 


FRINT "ADDRESS l:" 3 ASCn 


330 


I FCS- "3 "THENGDSUEl 330 


370 FDR I -1 TON 


15S0 


PR INT "ADDRESS Er^iDstlj 


3*10 


1 FCS- "4 "THENGOSUBEBG0 


330 IFN$Cn-T5THENGOTO1050 


1590 . 


PR INT "ADDRESS 3 : 13 ; U4 C I j 


350 


I FCS- "5"TKENG0SUB1 140 


330 NEXTI 


1B00 


FRINT"TEL .NO » ;" a PSCI3 


350 


IFDI--B "T H ENG05 U E 2 BOB 


1000 PRINT r PRI NTCHRS CIS :> "NO SU 


1610 


PRINT:PRINT"F1 - CONTINUE , 


370 


rrcar- "7 " thengosub i sge 


CH NAME IN FILE"CHHSC14BD 


ap 




330 


IFCS- H a"THENGD5UE31S0 


1010 PRINT r PR1NT"PRESS ANY KEY 


15E0 


PRINT] PR I NT "F3 - ERASE" 


330 


GOTD1S0 


TD RETURN TD MAIN MENU" 


1E30 


GETKEYCS 


400 


REM ** ENTER ** 


1O£0 GETCSr I FC$-" "THEN 1030 


1G40 


IFCS-"1"THEN GOTO 1B60 


410 


GRAFHIC0, 1 


1030 RETURN 


1G50 


IFC$-"3"THEN GOSUB 1B30:G 




IFN>-X-1THEN RETURN 


1040 5CNCLR 


DTD1B70 


430 


CHARl , 2>2 a "Fl - CONTINUE" 


1050 PRINT : PRINT" ENTRY NO."; I 


1550 


GOTO1G30 


440 


CHARl p B a 4. j " F3 - RETURN TO 


; "DF' a ; r 


1570 


N-N-l; I-I-l 


MENU" 


1060 PRINT: PRINT" NAME; "-N 


15B0 


NEXT I 


450 


GETKEYC$ 


I ) 


1B3B 


RETURN 


460 


IFCE«"1"THEN4S0 


1070 PR I NT " ADDRESS l:"-ASCn 


1700 


SCNCLR 


47© 


I FCS- "3"THENGDXO330 


10B0 PRINT" ADDRESS 5: u ] DSC I) 


1710 


INPUT "MATCH WHICH NAME" ■ T 


430 


GOTO4S0 


1050 PRINT" ADDRESS 3:*;USCn 


E 




490 


N=N + 1 


1100 FRINT" TEL.ND - : r, ;FSCin 


17£0 


LETTE-TS^ n , " 


500 


SCNCLR 


1110 PRINT r PR I NTCHRS C 1G D "PRESS 


1730 


F0RI-1T0N 


510 


CHARI , 10 s 2 a "ENTER NAMES/ AD 


ANY KEY TO RETURN TO MAIN MEN 


1740 


IFN5CID-TS THEN GD5UE 1G3 


DRESSES M 


U"CHRS£14B:s 


0 






PRINT ; PRINT "ENTRY * M ; Ni "DF 


1130 GETCSr IFGS"" ,? THENUE0 


1750 


NEXT I 




-I 


1130 RETURN 


1750 


PR INT "NO SUCH NAME IN FIL 


530 


I NPUT "N AME " .; NS C N^i 


1140 REn •* PRINT •* 


E" 




540 


LETN5CN3-NSCN3+'\ " 


1150 GRAPHICS, 1 


1770 


PRINT "PRESS ANY KEY TO RE 


550 


INPUT "ADDRESS 1";A£CN;> 


1150 CHARl a 2 a 2 a "Fl - CONTINUE" 


TURN 


TD MENU" 


B50 


LETA5CNH-ASCNU+", Ia 


1170 CHARl , B, 4 a "F3 - RETURN TO 


1760 


GETKEYC$:GOTO1020 


""S70 


INPUT "ADDRESS 2" a D$CN:> 


MENU" 


1730 


RETURN 


550 


LETDICND-DSCN3+", " 


11S0 GETKEYCS 


1800 


PRINT : PRTNTCHR5C1B) "ND SU 


530 


INPUT "ADDRESS 3 M ;U$CN) 


1130 IFC5-"1"THEN12£0 


CH WftttE IN FILE"CHREC14E3 


600 


LETUStN3-USCN^ + J3 p ■ 


1200 IFCS-"3' P THEN RETURN 


iei0 


PRINT: PRINT "PRESS ANY KEY 


GIG 


INPUT 13 TEL . ND - "-PSCND 


1510 GDTD 1140 


TO RETURN TO flENU " 




LETFS<N>*P£CN) + IJ > * 


1SS0 SCNCLR; PRINT r PRINTCHRSC IB 


1020 


GETCS ; I FCS- " "THEN1030 


630 


I FDSC N >- " "THENLETDS C N 3 - " 


3" PRINTING ADDRESSES "CHRSC 


1G30 


FORK-ITDN 


540 


I FUS C N )~ H " TKEMLETUS C N 5 - ,N 


14G5 


1640 


N3CK>"NiCK+13 


SS0 


t F P 5 C N ) - " "TH ENLETFS C N 3 - " - " 


1^30 PRINT ; PRINTCHRSC 1B1 " PLE 


1B50 


ASCK3-ASCK+-1> 


550 


PRINT : PRINTCHRSC IS? "ANQTHE 


ASE WAIT. "CHRSC14G.D 


1GG0 


DSCK3*D»CK+13 


R ENTRY? ( Y/N) " 


1340 DPEN1 a 4 


1670 


UECKD-USCIC + 1^ 


E70 


GETKEYCS 


1350 F0RI-1T0N 


1SB0 


P5CK)-PSCK+13 


BB0 


IFN>-X~1 THEN RETURN 


1E50 PRINT#4 a NSCn 


1Q90 


LETN-N-1 lLETI-I"1 




IFCS-"Y l THEN GOTO 430 


1570 PRINT#4,ASCI) 


1S00 


NEXTK 


700 


I FCS- "N" THEN RETURN 


1560 PRINT#4,DBCn 


1310 


GOTO150 


710 


GOTO 570 


1230 PRINTttH.USCr^ 


1330 


REM ** LOAD ** 


, 7^0 


REM +* READ « 


13-00 PRlNTtt4 ± P5Cn 


1330 


GRAPHICS t 1 


730 


GRAPH I C0 ( 1 


1310 PR I NT #4 


1340 


CHAR1 p 3 a 3 a "Fl - CONTINUE" 


740 


IFN-0 THEN RETURN 


1320 PRINTB4:PR1NT#4 


I960 


CHAR I ,5,4, ,? F3 " RETURN TO 


750 


CHARi 10, £ n "READ NArlES/ ADD 


1330 NEXT! 


MENU " 


RESSES" P 1 


1340 CL0SE1 


I960 


GETKEVCE 


7B0 


CHAR1 P 2 3 4, "Fl - READ ALL 11 


1350 RETURN 


1370 


I FCS- "1 "THEN 3 000 


770 


CHART S 2 S G, "F3 - MATCH NAME 


1350 REM ** ERASE ** 


1330 


IFCS-"3"THEN RETURN 






1370 IFN-0 THEN RETURN 


1330 


GOTO 1320 


7Q0 


GETKEYCS 


13S0 GRAPHICS, i 


3000 


SCNCLR 


750 


IFCS-"1 H THENBE0 


1330 CHAR1 N 3,P a "Fl - CONTINUE" 


E010 


CHAR1 a 12,2, " LOAD FILE 


300 


IFOli- J, 3"TH£N940 


1400 CHART , 4 5 "F3 - RETURN TO 


l? a 1 




510 


GO TO 7 20 


MENU " 


3030 


CHAR1 ,2,4, "Fl LOAD FROM D 




F0RI-1T0N 


14153 GETKEYCS 


ISK" 


B30 


SCNCLR 


1430 IFCS-"1"THEN14S0 


3030 


CHAR1 n 2 n B s "F3 LOAD FROM I 


640 


PRINT: PRINT" ENTRY ND , " - I j 


1430 I FCS- "3 "THENRETURN 


APE " 




"OF 1 


' 3 N 


1440 GDTD13G0 


3040 


GETKEYCE 


•133 


PRINT: PRINT" NAME: n ;N 


1450 SCNCLR 


3050 


I FCS- "1"THEN2080 




14G0 CHAR1 , 10, £ ^ "ERASE NAflES/A 




IFC$-"3"THENS540 


ee@ 


PRINT" ADDRESS 1 : " ; ftSC I 3 


DDRESSES" ( 1 


3070 


GQTO2040 


870 


PRINT" ADDRESS Si w ;13*CIi 


1470 CHARl^.4, "Fl - SCAN ALL" 




□RENINS, "0r 139 MAIL LIS 


BB0 


PRINT" ADDRESS 3r ";USU) 


14B0 CHAR1 ,£,6, M F3 - MATCH NAM 


T SED IJ 


330 


PRINT" TEL.ND - :"-FSCn 


E" 


^060 


INFUT#1,N 


300 


PRINT : FRl NTCHRS C IB) "PRESS 


1430 GETCS; rFCS-" ,p THEN1430 


£100 


FOKI-1T0N 


ANY 


KEY TO CONTI NUE " CHRSt 14B ] 


1500 IFCS-"1"THEN1530 


3110 


INPUTttl^SCn 1 


□ 10 


GETKEYCS 


151Q IFCS»"3"TKEN1700 




LETNSCI5-NBC I ^ + ■ 


320 


NEXTI 


ISaQ GOTO 1 360 


5130 


INFUT#l T AaCI) 


930 


RETURN 


1530 FDR I -1 TON 


2140 


LETASCI >-ASCI ) + " a M 


940 


SCNCLR 


1540 SCNCLR 


21513 


input*:, OS C1 1 
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2150 LETDECn-DSCn + M p " 
2170 INPUTtfl ,USCn 
2IB0 LEIUSC n-USC I) + 1P ; " 
2190 INPUT#l,PSCn 
2200 NEXTI 
2210 CLOSE 1 

2220 1 FC$- "1 "THENFR I NT s PR LNT ; P 
RI NT" DISK STATUS - "DS£:5LEE 
P3 

2E30 RETURN 

S240 PRINT""] ]OPENl n 1,0, "12B M 

ML LIST" 

2250 BDTDB09G 

22G0 REM " 5AUE »* 

2270 IFN-0THEN RETURN 

22SB GRAFHIC0pl 

eeso ck'ari.b^, "Fi - continue" 

2300 CHARTS, 4 > "F3 - RETURN TO 
MENU" 

B313 getkeyce 

2320 IFCS-"1"THEN2350 

2330 IFCE-"3"THEN RETURN 

£3*0 60 TO S 260 

2350 SCNCLR 

23G0 CHAR1 j 12 N Bp " SAUE FILE 
",1 

2370 CHARl ,2 K 4, "Fl - 5AUE TO D 
ESK" 

B3B0 CHAR! ,2>G S "F3 - SAUE ID T 
AFE~" 

5390 GETKEYCS 

2400 iFcs-^i^THENe^aa 

241© IFC£- w 3"THEN259iZl 
2420 BDTDB390 
2430 OPENl^lS 

2440 PRINT&I , "S0; 126 HAIL LIST 



2450 CLOSE 1 

24G0 DPENl^jS, "C: ■ 1SB MAIL LIS 

T 1 SEQ i W»iTE w 

2470 FKINTfl^N 

24B0 FDRI-1T0N 

2490 FRINTttl p NSC I 5 

2500 PRIMTttl.ASCIJ 

2510 PRINTti , D1C I i 

£520 Pf lNmiUBCli 

2530 FRINT#1 3 PSCI3 

2540 NEXTI 

£550 CL05E1 

25G0 I PCS- "1 "THENFRINT s PR! NT ; P 
R I NT " DISK STATUS - "DSS-SLEE 
P3 

2570 RETURN 

2590 PRINT" Ph j : OPEN 1,1,1. "IBB 

MAIL LIST" 

2590 GDTD2470 

BE00 REM ** CHANGE ** 

2510 IFN-0 THEN RETURN 

£220 GRAPH ICB t l 

2530 CHARl k 2>2 p "FT - CONTINUE" 
2540 CHARl .2,4, J T3 - RETURN TG 

MENU" 
2550 GEIKEYM 
2BE0 IFC3-"1"TKEN2BB0 
2G7E IFCS- n 3"THENRETURN 
2BB0 GOTOS600 
2BB0 SCNCLR 

2700 CHARi, 10 ,2," CHANGE AN E 
NTRV " s l 

2713 C^Sl,^,-:, :, F1 - w EJ AN 8, CH 
ANGE" 

2720 CHARl 1 2, B t "F3 - HATCH " 
2730 GETKEYCS 




2740 IFCS-"1"THENE770 

2750 IFCS-"3"THEN£S10 

2760 GDTD2730 

27713 F0RI-1TCN 

27B0 SCNCLR: FRINTNSC 13 

27B0 PR INTA$C I ) 

2B00 FRINTDSC I D 

2510 PRINTUECn 

2BB0 FHINTFSCn 

2B30 FPINT : PRlNT"Ft - CONTINUE 

2940 PRINT "F3 - CHANGE 1 " 
2B50 GETKEYCS 

£960 IFCS- H l n THEN GOTO 2550 

BQ70 IFC5-"3"IHEN GOSUB 3GE0;G 

□TD2SS0 

2550 5OTOe950 

BBBS NEXT I 

2300 RETURN 

2910 SCNCLR 

2920 INPUT "MATCH UITH WHAT NAM 

E"\m 

2330 LETnS-MS+ N K " 
B9H0 FORI -1 TON 

2350 IFNSClD-nSTHENGOSUB 3010 i 

RETURN 

23B0 NEXTI 

2570 PRINTCHRSC 10} "ND SUCH NAM 
E IN FILE"CHftSel4G) 
29B0 PRINT "PRESS ANY KEY ID RE 
TURN TD MAIN MENU" 
2550 GETCS: IFCa- ian THEN2390 
3030 RETURN" 
3010 SCNCLR iFRINTNSC II 
3020 FKINTA5C I ) 
3030 PRINTDS(I) 
3040 PRINTUSCI) 
3050 PRINTFSCn 
3050 PRINT"! >> NAME 11 
3070 PRINT"2 >> ADDRESS 1" 
30BS PR INI "3 >> ADDRESS 2" 
3090 PR INT "4 >> ADDRESS 3" 
3100 PRINT"5 >> TEL. NO - " 
3110 PRINT: INPUT "CHANGE WHICH" 

&c 

3120 DNCEQSUE3140 a 3150 h 31G0, 31 
70,3180 
3130 RETURN 

3140 PRINT; INPUT"CHANGE TO WHA 
T" ; GS ,: NSCI3-QS:LETNSC 1 3 + 

k , B : 1-1-1; RETURN 

3150 PRINT: INPUT "CHANGE TD UHA 
T h j UE; P|ECn-OS;LETASt I}-A5C E3+ 
M , "t I - I - 1 : RETURN 
31B0 PRINT] INPUT "CHANGE TO UHA 
I" ;D5:E£C I5-DS:L£Tt]5C n-DSCI) + 
H V*i 1*1-1: RETURN 
3170 PRINT: INPUT "CHANGE TO WHA 
1 13 - □£ ; US C n -QS : LETUSC 1 3 -US C I D + 
" s "; 1 - I - 1 : RETURN 
3190 PRINT: INPUT "CHANGE TG WHA 
T w ;Q5lPSC I >-OS:LETP*Cn-Pa^ I 3+- 

" s ": I-J-l: RETURN 
3130 REM ****** EXIT ****** 
3200 GRAPH LCI p l 

3210 CHAR1 ,2 ,5, h HAUE YOU SAUED 

NEW ADDRESSES ?" 
3220 QETKEYC^ 

3230 1FC5- Ji Y"THENBRAPHIC8 f 1 : EN 
D 

3240 IFCS-"N-THENRETURM:ELSE3E 
00 
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Binders 



Organise and protect your disk with 
Commodore Disk User disk binders and 
data disks. 



Why not keep your Commodore Disk User program 
collection alongside your magazines in a stylish Disk User disk 
binder? The binder comes complete with 10 disk sleeves to 
organise and protect your program disks Why not buy a disk 
binder to house all of your data disks? We can even supply 
Commodore Disk User data disks. The Commodore Disk 
User logo immediately identifies your disks and there's room 
to title them and document the disks details. 
Send for your disks and binders now! 




PRODUCT NAME 


ORDER CODE 


QUANTITY 


PRICE 


































Overseas postage add £1.00 




CHEQUES PAYABLE TO 
A.S.P LTD 


TOTAL 



Prices are as follows: 

Commodore Disk User Binder £4,95, including 
10 sleeves. Order code BDYUI 
Commodore Disk User Binder with ID sleeves and 
10 disks, £9.95 Order code BDYU2 
10 sfeeves for insertion in binder, £1,50. Order code 
BDSID 

26 sleeves for inclusion in binder, £275. Order code 
BDS20 

10 Commodore Disk User data disks, £5.95. Order 
code BDDI0 

All orders should be sent to: YOUR COMMODORE, READERS SERVICES, ARGUS SPECIALIST 
PUBLICATIONS, 9 HALL ROAD, HEMEL HEMPSTEAD, HERTS HP2 7BH. 
Please allow 28 days for delivery. 
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Produce customised scrolling displays with a suite of 

editor programs 



The 



s 



he Message Construction Kit is a 
useful package which can add a 
pleasing, dual-line banner effect to 
most programs. It can scroll credits 
across the screen or add wrap- 
around instructions. As long as 
there's room for an interrupt, MCK 
can help. 

Although the messages are re- 
ferred to as text, they can include 
user-defined pictures. In fact, the 
whole text is redefinable to suit your 
own particular needs. 

By raising the start of Basic to 
$3000 (12288), there is room for a 
character set from 52000 (8192) 
upwards and a message can be 
stored in the space from $0800 to 
$ 1FFF (2048-8191) giving room for 
a string of 6144 characters. The 
routine which forms the interrupt 
engine is stored from $C000 to 
$C 166 (49152-49510). 

The three MCK editors control 
text, characters and storage accessed 
via a master menu which leads to 
sub-menus for each option. 

Text Editor (T> 

There are six options within the text 
editor. 

E - selects the 'text edit' facility 
which allows the scrolling text to be 
typed in + At first, the program asks 
for a starting point which should lie 
somewhere in the text storage range 



of 2048 to 8191, Entering text is 
then simply a ease of typing in the 
words, using the DEL key to correct 
any errors. Pressing RETURN re- 
calls the option menu* 

V - the View Text option is used 
to display the text from a given point 
in memory. While the text is being 
displayed it can be paused with the 
F7 key or terminated by pressing the 
spacebar. 

This function also allows you to 
check the text length which can then 
be stored by entering the value 
through the TVT option from the text 
menu* This tells the program where 
the text ends and the wrap-around 
begins, 

S - reveals the main scrolling 
demo where the results of your 
labours can be viewed. Press the key 
and the demo is displayed in fully 
defined characters across the top 
two screen lines. Pressing the space- 
bar may cause a panic at first be- 
cause a warm reset occurs. This is 
normal and entering RUN will res- 
tore the program without losing any 
character or text information. 

R - if text has been omitted, it 
can be inserted using the option. On 
entry, the program asks for a start 
and end address of the block of text 
to be moved, the destination address 
must then be entered. For the end 
address you have to know how many 
characters need to be inserted, this 



can then be added to the start 
address to give the end value, 

This facility can also be used to 
repeat blocks of text, The limitation 
is that only 2000 characters can be 
moved at a time. 

M - As mentioned before, this is 
the 4 set message length 5 option that 
tells the system where the loop starts 
and ends, This can be any value 
from 256 to 6144 in blocks of 256 
characters. The number of char- 
acters is increased with the V key 
and decreased using *-\ 

X - Exits from the text menu to 
the main menu, 

Character Editor (C) 

Up to 128 double height characters 
can be designed and manipulated to 
create the building blocks for a 
scrolling message. The screen dis- 
plays a 16 x 8 grid, a menu of 
options and a full character set, The 
screen layout can be seen in Dia- 
gram 1 . 

The functions can be selected by 
pressing the specially allocated keys 
displayed alongside the menu but, 
by pressing the spacebar, the options 
can be highlighted with a joystick 
and the option will be executed 
when the fire button is pressed. 

The space character {ASCII 32) 
is not included in the redefinable set 
so that the screen does not fill up 
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with rubbish. This also means that 
spaces can easily be inserted in the 
text editor by pressing the spacebar 
as normal 

When the editing process is com- 
pletes the X option will return the 
program to Basic but the program 
can be re-run without losing the 
defined characters from memory. 

SELECT CHARACTER - This 
option moves the cursor to the char- 
acter set at the bottom of the screen. 
The character to be edited can be 
selected by moving the cursor onto 
the relevant character and then 
pressing fire, 

CLEAR CHARACTER - When 
this option is selected, the current 
character is erased ready for 
redefining, 

REVERSE CHARACTER - All 
of the on pixels are turned off and 
vice versa when this option is cho- 
sen for the character being edited. 
_ FIRE MODE PLOT - The fire 



now used to erase a pixel. 

COPY CHARACTER - If you 
want to make a slightly altered ver- 
sion of another character from the 
set, this option allows you to copy it. 
First, the program asks for the char- 
acter to be copied and this is selected 
on the lower display using the joy- 
stick, Nextj the character position to 
which the copy is made is selected in 
the same way, 

GET CHARACTER - After se- 
lecting a character for display, this 
function transfers the information 
to the editing grid. 

PRINT CHARACTER - A per- 
manent pixel map can be printed 
out using this facility, 

MIRROR X - After selection, 
the character to be mirrored is later- 
al [y reversed. 

MIRROR Y - This is the same as 
mirroring in the X direction but the 
character is inverted instead. 

5 CHAR PAINT - Five consecu- 



Screen Poke - The value of the curren t charac- 
ter selected for editing* 



Character 
editing 
window 

■liiiiii 

PC 



IS 



Fire m#de - The highlighted pixel is turned on 
by pressing the /ire button when thh value is /. 
The fire button turns the pixei off when rfe 
mine is 0. 



IIIIIMI 



ill**!!! 



CHARACTER HEHU 



SELECT CHARACTER 
CLEAR SCREEN 
REUERSE CHARACTER 
EIRE MODE PLOT 
F I RE MODE ERASE 
COPV CHARACTER 
GET CHARACTER 
PRINT CHARACTER 
MIRROR X 
MIRROR V 

S CHARACTER PAINT 
EXIT 



S 
C 
R 
+ 

0 
G 
P 
¥ 

X 



Option wind&w 



W8gfflB$t 



The character to he typed into the 
text editor to select the current 
edit character, 



, The character set 



Diagram I - The Character Editor 



mode (FM) is set to unit value and a 
pixel is set when the fire button is 
pressedn 

FIRE MODE ERASE - This is 
like the last option but the FM value 
is set to zero and the fire button is 



tive characters can be designed 
simultaneously on a special 40 x 1 6 
grid, After the first character of the 
sequence has been selected from the 
character set display, the screen 
changes to reveal the new grid. Be- 



neath this display is the fire mode (1 
or 0) and the poke values of the 
characters displayed. The first char- 
acter must have a screen poke value 
of less than 1 21 

The five character frieze can now 
be created using the V and keys 
to select the fire mode- When fin- 
ished, the characters are transferred 
to the computer's memory by press- 
ing the spacebar. F7 displays the 
characters on the screen as they will 
appear in the text and, if they look 
alright, the main editing screen can 
be re-entered by pressing *X\ 

Storage (S) 

The options available from the stor- 
age menu relate to saving and load- 
ing routines. 

CHANGE DEVICE - The sys- 
tem is initially set for tape opera- 
tions but this function will toggle 
from tape to disk. 

SAVE CHARACTERS - The 
current character set will be saved 
under a filename of your own 
choice. 

SAVE TEXT - This saves the 
current text message on to the stor- 
age device, 

SAVE MACHINE CODE - As 
the scrolling message is modified 
through the text editor, the machine 
code is automatically tailored to run 
the program. This option saves the 
correct routine to drive the current 
characters and message. 

LOAD - Can be used to load any 
of the three file types saved with the 
preceding three options, 

Program creation 

To use the files with your own 
programs, first enter the following: 

POKE 43 n 0:POKE 44,4&;POKE 
12287, 0:NEW 

Now the character set, text mes- 
sage and machine code can be load- 
ed in. Before loading your own 
routine type NEW again. 

The following commands will 
kickstart the scroller: 

POKE 899,Q:POKE 900,199: 
POKE 49324, 8:SYS 49152 

The code routine occupies the 
locations from 49 1 52 to 495 10. 
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INSTRUCTIONS FDR ENTERING THE 
PROGRAMS 

LD TYPE IN AND SAUE 'MESSAGE 
CONSTRUCTION KIT " ONTO YDUR 
MASTER TAPE QR DISK 

eo type: in and saue WC 

MAKER 1 DNTD A SEPARATE 
TAPE/DISK 
3> RUN J t1/C MAKER' AND ADD IT 
TO THE riASTER TAPE/DESK 
AFTER TICK 1 
4> TYPE IN AND 5AUE a CHARACTER 
MAKEF 3 DNTD A SEPARATE 
TAPE/DISK 
5) RUN 'TEXT MAKER 1 AND ADD IT 
TO THE PIASTER TAPE/ DISK 
AFTER J M/C MAKER 1 
TYPE r N AND SAUE 1 TEXT 
MAKER 1 ONTO A SEPARATE 
TAFE/DISK 
75 RUN 'TEXT MAKER 3 AND ADD IT 
TG THE MASTER TAPE/DISK 
AFT Eft 'CHARACTER MAKER a 
BJ LOAD AND RUN h nCK J AND 

LPAD THE PROGRAMS IN THIS 
□SDER; 

n/c 

CHARS 

TEXT 



PROGRAM MESSAGE CONSTRUCTION KIT 



4A 10 DE-1 :DU-1 :0BC13-"TAPE" : OS 

C 2 >- "D I SK b : GDTD1£30 
3fl 20 PCKE^aBO^EjFDXESSMl^lS 

- PDKE64G a B : PR INT "C C4 a CLH p BLA 

CK 3 " i : POX E5 326 9 a 1 : POKE S33B7 , 

0 

7C 30 FDRX-0TDS3:POKE83g+X 3 0iNE 
XT:P0KEB3Ep E55 ; FdftX-ETDG : PQK 
ES3E+X*3 B 19S : NEXT ; J-l 

5B 4 0 PDK E8S3 ,£55: PDK EB5B , £55 ■ P 
DKEB35 p 255 e PDKE53£4Q , E4 s POKE 
S3 549 , SO : FOKE2040 a 13 

09 50 FDRX-0TO15 ; PR I NT " CUH I TE h R 
USDN , 9QB: " : UEXT ; FRINT"E HOME h 
n TflBC95 a, C C4 : C WH I TE: 1 
";ElD-lltGDSUB3l0 

BE 60 ft-0;XX*S6!SYS43397:FDRD-a 
•3ETQQ+7 : FOX EB 1 BE + U p 0 ; MEX T : P 
RIIMT"C HDME , ' h T ABC 33 "PC: 

A6 70 PRINTTABC10 5":aDWNe j C5 1 Ce 
: " ■ PR I NTT AH C S 3 ' 1 C CM s C4 1 B E CS , C 
0 3 11 : PR I NTT ABC 10^ IS E CTD " i GOTQS 
50 

□S 90 P-PEEKC563eBlj IFCPAND13-0 

ANDY>0TKENY-Y-1 
B2 90 I Ft PANOSE -BANDY <15THENV-Y 

+1 

28 100 IFCPftNm>-0ANDX>flTHENX-X 

-i 

0E 110 IFCPANDBl-BANDX<7rHENX-X 
+ 1 

6S 120 IFCPANDlS3-BTH£hlPDKE5559 

5 + X + Y^IB t MD l GOTOES0 
24 130 pDKE53E - *B,24 + X*BfPDKE53E 

43 p 50 + Y*B : GETAS : I FAS-" "THENB 

B 

E0 140 If A5-"+"TKENMD-ll;PRJNT ip 
C HOME , "TftBC IE 3" C UH I TE 3 1 

lh ; GOTOB0 

»iB 1 SB I FAS- " - "THENM D-l : FR1NT"E 
HOME , DOWN 3 J? TABtlE3 "tUKlTEDO" 
: GOXO90 

B9 160 IFAS-"S"THEN45B 

B8 170 I F A5 ™ n C * THEN PR I NT ^ t HOME 1 
-s :FQRQ-1TD15:PRINT"CWKITE 1 R 



3E 
45 
EA 
7H 
A5 
F3 
E3 
97 
FD 
B4 
IS 

30 

oe 

13 
£3 



30 



55 



DD 



B7 



BE 
3B 



U3 



0C 



57 



50 



AA 



CF 



FF 



F7 



10 
AS 
EE 
51 
CC 

0B 

FE 

^A 

7j 

SE 



El 



10 



USQN , SOB] " ; NEXT : GOTDBE0 
180 I FAS** *R 11 T HENGUT08 to 
190 IF AS" " "THEN690 
E0B IFAS-'^'THENBIB 
£10 IFA$-"O"THENBG0 
I F At m M G H THEN 340 
E30 IFA£- H P ,k THEN1010 
240 I FAS- * C F7 3 11 THENES00 
E50 iFA5- ,, _ H THEN6QTDE8BG 
2S0 I FAS™ " * " , THENGOTOE950 
P70 3010680 

£00 22=ei3£^8*C3£*D^C+A*E4+A 

*13+Yt IFY>7THENZZ-Z£+127*8 

E50 IFMDOITHENPDKEZZ.PEEKCZ 

Z)DRC5"C7-X)):BDT013B 

300 FOKEZ Z , PEEK £ Z Z 5 AND t E5 5-E 

-C7-X)J3GDTD13B 

310 PR I NT "CHDME , (355 "TABi 13S " 

LCA h SCE0 fc CSl " 

3E0 FRINTTABCl33 |i CSB h SPC3 F C i i 
1 CHARACTER MENUC CS h SPC3 , 501 ?¥ 

330 PRINTTASa3> ah CC5 a CQ J SC£B 

1 CU3 ,, iFdRA*-lT0iE 

340 PR I NT T A B 1 1 3 V I S B 3 "TAB C 3H 

>"ESB3 li jNEXTsPRINTTHBC13^ ,s tC 

2 p SCE0,CX p C4: h 

3SB PR I NT "CHDME , DOWNS J " : POKE 
B3EB4,0;PDKES3E71 a B 

FORX-lTDlSiHEADASiFHINTT 
ABC 14TLEFTI C AS , 1B> - T I TE1 ab R 
] GHTSC AS p E > " C C41 fcl : NE^T : PR I NT 
W CH0ME1 ip p 
370 FDRX-0TD31 
360 PDKE17BB+X 1 K:PDXE17BB+X P 
X+3E : POKE 1 868 +X , : POKE 194 
6+X 3 X+36: Y-X 

330 ^-X+lEB:PQKE174B+Y a XtPDK 

E16E8^Y , X+3E : PGKE1B0B+Y a X+S4 

; FDK£19BB+Y n X+96 

400 X-X-12B: NEXT :K-0sY-B: RET 

URN 

H10 DATA » SELECT CHARACTER : 

s w , "clear- screen: spcs: : C PJ . " 

REVERSE CHARACTER: R ,p 

DATA "FIRE MODE PL0T:SPC3 
1: + ra , "FIRE tlDDE ERASE s - 1P 
i "COPY CHARACTERCSPC3] i U" 
430 DAT A" GET CHARACTERS! EFC43 
: B", "PRINT CHARACTER : P", 
"MIRROR XCSPC9:: J* 
4H:0 DATA "MI RRDR YLSPC93 = 
"5 CHARACTER PA I NT j F7 " „ "EXIT 
C5PC131: X" 

450 3 f-X:G-YjA-E:Y-DiX-C:PDK 

ES3E71 p X - PDKE53P54 , A 

450 IFPEEK{S5350 3-li!THEtt4Gia 

470 P-PEEKC553eB)iIFCPANDl)- 
BfltlDY>BTH£NY-Y-l 
4BS IFCPANDE^BANDYOTHEMY-Y 

+ 1 

430 IFCPflND4>-0ANDX-0AHDA-lT 
HEMG70 

SBB IF C PAND4- ? - BAMDX > 0T HE NX - X 
-I 

510 IFCPANDB^-BflMDX-EtTHENBfi 

0 

SE0 IFCPANDB3-BflNDX05TH£NX- 
X+l 

S3B 1FCFAND16J-BTHEN5E0 
540 IFfl-iftNDX-7TKENX-X-l 
55B F0ICES3g49 , XX + X*B i P0KE53E 
43 1 1B5+16*Y?BDT047B 
S60 W-E*g4+E-1+C+D*H0:POKE55 
300+ W ,11; PDKESS9B0+U+40 . 11 : U 
- A*^ 1 !^- A* 1 +X + Y*60 
570 PQKES53B0+U n 0 i PDKE553B0+ 
U+40 . 0 : OX : D- V : E- A : X-F : Y-G : P 
□KE53S71 a 0 

S90 □□-CD*3£+C+A*E4+A*n :PRI 
NT aK C HDJ1E . 0DUN6 , UJH I TE1 ''TAB C 8 3 



□□"E LEFT1 " ; : IFOQ<10THENPRIN 

CC 550 PDKE10E4 + 10 + S ,p 4O,aDEPRIN 
T"CK0nE3 " i ■ FQRL-1T016: PRINT" 
L m I TE , ftVSON p SOB] hl : NEXT 

EB 600 P0KE53e6t>B: IFUQ E 1THENRE 
TURN 

F3 510 P-PEEKC563EB3: IFP-111THE 

N610 
£F 5£0 GDtOS0 

Jl G3E' JFDU-LTHENDU«B:DN-B:3DTD 

B3 640 DU«l:DN-DU 

00 650 PRINT^tHDME ^yKITEJ "TfiBCE 

3>DSCDUi : GOTOB0 
m SB0 X-0 i XX"© : A-l : P0KE53S64 , A 

j GDTG540 

3E E7B X-E4:XX-5B:fl-B:P0KE53EE4 

p At GDTDB40 
E0 SSB P0KE5334B i a4:PDKE53B64 a l 

f PDKES3277.1: I-Y^Y-J 
FB S30 P -PEEK C S6320 3 : IFC P AND 1 > - 

0 ANt)Y> 1 THENY- Y- 1 
D7 700 IFtPANO25-0ANDY<l2THENY- 

Y+t 

D3 710 I F t PAND1 B > -0THEN730 

34 720 PGKE53249 a 65+Y*S:GOTD650 

BA 730 POKES 3E64p0jPDKE53E 77,0 
53 740 IFUO-XTHENRETURN 
A4 750 P-PEEKC5635BJ: IFP-111THE 
N750 

□ 5 760 J-Y : Y- 1 : ONJGDTD4S0 T 770 a 7 
80 s 750 p 800 , 860 , 340 ,1010, EQE0 
a ^950p 5800,910 

BS 770 ftE- b, C H :SDTDl40 

DB 7B0 A£-"F iF : GOTO 140 

A5 79B AS-'^-sGOTDlTO 

05 800 ftI- r, - N1 £ GOTO 14-0 

75 810 SY5G51EG 

E7 8P0 FDE?a-0TD7iZZ-ei9E+8*CD*3 
E+C+A*r*+A*l >+Q l PDKEZZ , 0 1 POK 
EZZ-K1ES*G> ,0:NEXT 

30 830 GGTD80 

40 B4B FDHD-0TO7:ZZ-S19E+B*CD*3 
S+C+A*24^A* 1 3 -HJ ? PDKEZZ , E55-P 
EEK C ZZ 3 

5F a 50 PDKEZZ+ 1 5B*B a ESS- PEEK C ZZ 

+ 1EB*B3 : NEXT i GOIDB0 
EQ B50 U0-1:PRINT"CHDMED"; FORX- 

1TD15 ; PR I NT ■ NEXT : PR I NT 'T BL AC 

KDCDPY FR0T1 CHARACTER "iGDSUB 

^50 

E0 970 Zl-B132+B*CD*3e+C+fl*e4*A 

80 6B0 PR I NT " C HDUE a SLACKS 11 : FORK 

-1TD1B; PRINT: NEXT 
4*i B30 PRINT": UP 1 COPY TD CHflRAC 

TER " ! GO SU B450 3 Z£ -B 1 SE + 8 + C C 

*3E*C+A*E4+A*13 
AC 900 Wl-2l+lEe*6: W2-2E+1EB*©: 

FORD— 0TD7 
19 910 PDKEZe-*0,PEEK£Zl+Q) 
S£ SE0 P0KEW5+D a PEEK C Wl+Q "> : NEXT 

: PR INT "CHDME] n s FDRK-1T01S i PR 

INT : NEXT : ldd-0: X-0 
9B 330 PRINT lfc C5PC35r*£GDTO00 
E4 940 PGKESSESOje 
B5 990 ZZ-ei9E+9*CD*3B+C+A*E4+A 

•1 ■) s IdU-ZZ* 1 EB*B i FORD -0TD7 : T- 

FEEK C ZZ+Q > 7 S-PEEKt WU+O) 
IB 560 FORR-7TO0STEP-1: IFT-S' 1 R> 

-0THENT-T-2 " R : POKE5SES6+G*40 

+C7-R j p11lGGTD9B0 
31 970 PGKES5E96+U* 4 10*7-Rpl 
S0 3B0 IF9»E i R>-0THENS-5-2-R:PD 

KE55eiB + Q* l ±0 + 7-R „ 1 1 : GOTD1000 

El 530 PDKE55615+Q*40+7-Rpl 
FB 1000 NEXT : NEXT i POKES3EB0 ? 1 1 : 
6DTOB0 
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LISTING 



A2 1010 PRINI"CH0n£3^: FQRK-1TD1 
S: PRINT: NEXT: PRINTS BLACK DDQ 
YDU DUN A CITIZEN 1DF-S607 

00 1020 G£TA9: IfASO lfc Y J, AND A*< > ,p 

N"T KEN 1050 
FD 1030 1 FA** "V " THEN0PEN5 ., 4 p 6 1 F 

RINTWBpCHRSCB) : CLOSES 
E0 1040 PRTNT"CUP I SPC3E3" 
0A 1050 DFEN4 , 4 : PDKE53B55 , PEEJCt 

532EB3ANDE33 
A4 1060 ZZ-B13E+B*tD*3P+C} e FDRD 

-0TQ7:T-PEEK<Z2 + GI3 
FE 1070 FORK-7TDBSTEP-1: IFT-E^R 

^©THENT-T-S^RtFRINT***,- "CHUS 

□Nl CRU5DFFD H ; : GDTD1092 
C0 1080 PRINTS 1 * , "C 503 " i 
27 1090 NE)CT : PR I NTJI4 ? H CCQ] ™ y NEX 

T 

AS 1100 Z2-eiS2+B*CD*32+C3+lEB* 
8 : FORQ-0TO7 : T-FEEKCZ2+Q) 

9F 1110 FD EE - 7TO0S TEP- 1 : I f X-.2 " R 
>-0THENT-T-B"G:PRI NT# 4r p "ERUS 
ON 1 CRUSDFFJ", :GDTD1130 

26 1120 PRINT**, "£303 11 ; 

2A 1130 NEXT : PR I NT#4 a P! CCG] Pl : NEX 
T:PRINT#4 , "CCTB: ■ : CLOS^i : POK 
E53265 ; PEEKCS326S 1 QH1G 

FD 1140 X-0:EDTDa0 

IF 1150 PRINT H CCLR,DQWNP I C4: H T^ 
Btie) J, 3AUE "NS:PR1WTTAEC1S>" 

cctie: ?i 

44 1160 INFUT'TDDUNE^CBIIGIUE FI 
LENArtE w ; FTS : IFFIE- M?h ANDDE-B 
THEWFR I NT M .£ UP 3D m j, : GOT □ 1 1 60 

BE 1170 PQkE194 1 SA/25B:PQKEl93 I 
SA-PEEKC194 1+P55 

31 1190 POKE 175, FA/a5B:POKE174, 
FA-PEEK<175)*256 

53 1190 L-LENCFI*) 

70 IE 00 F DR I - 1 TOL : P DXF 1023+1 , AS 
CChlDStFIS, I i DJiNEXT 

40 1210 P DKE 167 p 0 : POKE 1 B 9 , 4 : P DK 
E163 „ L ; PUKE195 p DE ; 5Y5G2954 

46 1220 RETURN 

8C 1230 PRINT M CCLE a nDyN] " : FDKE5 

3290 n 0 ; POKES 3291 r 0 
DB 1240 PRINT H CWKITE 3 5FCS1THE M 

ESSAGE CONSTRUCTION KIT" 
CA 1245 PRINT ,3 tWHITE,5PCB p CT2B 1 

DQUNJ ?l 

00 12S0 PHINT"CCB,SPC4:PS0SRRnn 
ED BV FRANX UAN TIGBELEH" 

21 1260 PRINT P, [C4,5FC15JMARCH 1 
9BB" 

97 1270 PR I NT" 1X5 .SFC9 IFOR THE 

YOUR C0MF1DD0RE " 
90 127S PR I NT T YELLPU , SFC1 0DSER 

IOUS USER 3 S GUIDEEC5 P DDWN3: Jl 

35 1280 PRINTTftBC9rCCA,S*E0 s CS 

E5 1290 PRlNTTABfy; "CS-] M Pi I 

NtSPL4]n E H U £S-3" 
El 1300 PRINTTABC9? H [CD ? S*20 a CU 

1 ? 

E4 1310 FRINTTABCBl'TS-DTEXT ED 
ITQRCSFCEU : C LdH T TED TC C5 p hl 

03 1320 PRINT! ABCB3"tS-JCHARACT 
ER EDITOR : ■ CWMITE3CCCS l S-3 w 

E2 1330 PSlNTTABt93 ,a CS-:5T0RA6E 

C5FC103: CWHITEJSCCS.S-l" 
69 1340 PR I NTTAEt 9") "ECO h S*20 p CW 

E0 13S0 FRINTIAEOIJ "E5-JEXITESP 
C133: E;UHTTE3Xi:C5,S-3 ,r 

□3 1360 printtabo?"e:cz p s*si9,cx 
3 B 

DB 1 37 0 EE T A$ : I F A*- 11 " THEN1 3 70 
7E , 1360 IFnS--T ,p rnEN17BB 
BB 1390 IFA5« ?I C ?J THEN20 



21 1400 IFAE- ,fc S ,p THENI430 

99 1410 I F AS - ?h X n THEN SYS 66 126 

Bl 1450 GUT D 1370 

IF 1430 PR1NT ,, CC4 1 CLR3":PDKEB3E 

B0, L5:POKES3eai, IS 
93 1440 PRINTTABC9^"CD0WMe > CA J S 

*20 N CS: fcl 
CS 14S0 PRINTTABCB^"CS- I SPC33S 

T D R A B ECSPC4 p S-3" 
41 1460 PRINTTAEC9) H [CD,5*2B P CW 

1" 

45 1470 PRINITABC93 P C^-: STDRA 

BE TO ?l D£CDVr j C SB 3 " 
55 1480 PRINTTftBC9}"LCQ 1 B*&0 B CW 

AA 14S0 PRINTTABC 3) "CS-: CHANGE 
DEUICECSPC4J : CUMITEanCCl.SB 
1 " 

CC 1500 PRINTTABC9)"CS-3SAUE CH 
ARACTEPS r CUJHTTEDCCC4,SBJ n 

C4 1510 PRINTTRBC93 N tS-3SAUE TE 
XTCSPC9D 3 CWHITE:T:C4,5B: i, 

40 1S20 PR I NTT AH C 3 3 " LS-D EAUE NA 
CHINECODE : E UJH 1TE3MC Ci , SB] " 

E4 1530 PRINTTABCS3 n CS-JLUADt5P 

C13]: F :UHITE3LCC4 1 SBD I, 
BB 1540 PRINTTABC33"C:ca a B*B0 1 CU 

: ?| 

Sfi 1SS0 PRiNTTASC9r'C9-3EXlTi:9P 
C13D : CUIHITEIIXCC4 ,3-]" 

39 15B0 PRINTTABCSr i IC2 1 5 + 20 1 CX 
j " 

5 A 1 570 GE T A* : I F AS- 39 " TH EN 1 57 0 

1S60 I FAE* '"D ""THEN1E50 
7C 1590 1FA*-"C B THEN1670 
SF 1600 IFA5- w n"TKENlBS0 

63 1910 IFAS- S, T >I THEN1E30 

41 1S£0 IFA£- H L"THEN1700 

B2 1630 IFA3- ?, X rl tHENeQTD1230 

54 1640 GOT D 1570 

BE 1EE0 lKUU-lTKENDU-esDE-BsPEI 
MT "CHOME , DOWNB: ,a TABC24^DlC DU 
i:GDTO1570 

64 1660 DU-1:DE-1:PRINT ,, CH0ME I D 
□UN6 3 ,p T C 24 > m C □ V ^ GOTO 1 57Q 

B6 1970 NS-" CHARACTERS ":SA-e 19 
£: FA-10241 : GD5UB1150 ; GOTQ143 

0 

AC iS90 NS»" MACHINE C/'iSA-tEl 
5£ : FA»49510 l GDSUB1150 : GOTO L4 
30 

41 1630 NS- , ^SPC71TEXT ,s :SA-e048 
: FA-PEEK C 49386^ *ES6 : GDS^Bl l'j 
0: EDTD1430 

7B 1700 PKIMT'TCLR, DDUNeJ ,p TABC 1 
B D "LOAD" : PR I NTT AB C 16) "C CT4D w 

33 1710 INPUT H CDUUJN2 a C5:GlUE FI 

LENANE w t F IS j LQADF I S , BE , 1 : A5- 

" l? ; GOTP1430 
4C 1720 PR1NT":CLR: ,? : PDKE53280, 

12 f F0KE53291 , 15 
0S 1 730 PR J NTT AB C 9 3 H t C 4 p DU WN3 , C 

A , 5*^0 , CS3 PJ 
D7 1740 PR1NTTAB(9) ,B CS-1 CCSDT 

E X TCSPC41M E H UCC4D C5-J" 

55 17S0 PRlNTTABt9 5 ai r:CQ a S*20 3 CW 
j" 

0B 17E0 PRINTTAHCSr'L5-3EDIT TE 

XTCSPC83 : CUH1TE:ECC4 > 5B]" 
Al 1770 PRIMTTABiSVCS-DUlEW TE 

XTLBPCBJ : LUHITEJUCCH.SBD" 
BE 17B0 PRINTTABO) ,p CS-DUIEW SC 

R0LLINGC5PC3: : CUHITE3SCC4 , 9 

B3" 

4E 1750 PRTNTTABC9) JP [:S-3REPLACE 
TEXTC 9PCSJ : CUHITEDRCC4 , SBi 

41 1600 PRINTTABC3)"CS-39ET flES 



S. LENGTH : C til H T TE J 1C C4 , 5B 1 " 
El lBia P^INTTABCSr i CCD 1 5*20 n CW 

03 1920 PRIMTTABCS3"CS-3EXIICSF 
C133: CWHITE3XE:C4 l S-D KJ 

01 1B30 PR 1 NTT AB C 9 > " C C2 a S*£0 , LX 
: " 

5B 1940 6ETAS: IFAS- 1 ' "THEN1B40 

5B 1950 1FA5- ,, E"THEN19£0 

3E 1BE0 IFAE- H U"THEN2110 

2E 1670 IFAS- ,S S"THEN£3B0 

55 i960 IFA£-"M ,7 THEN5400 

75 1850 lFA$- ,p R Jh THEN3100 

72 1900 I FAS- "X 11 THEN 1230 
61 1910 G0T01S4S 

07 1520 PRINT ?| :CLR,C4,C0UIN23ALT 
ER START ADDRESS ? CY/NJ DEF 
. -E 04 B " : riS-P EEK C 4 9386 3 
7F 1330 G ETA* : 1 F AS - Jh 14 TH EN 1 93 0 
DB 1940 NA-E04B- IFASO "Y"THE!M13 
70 

46 1950 INFUT u tCLfi 1 DQUJJ p C13SlUE 

NEU START ADDRESS ? ':NA 
IB 13E0 I FN A< 204 BQRNA> H5 * 25 BT KE 
N1950 

E8 1970 PRINT "CCLR , DOUM , C4JCHAR 
ACTE RS FR E E : " nS ■ 2SS-N A = PR I NT 
"CDOyNlEXIT: CUH I TE3C RETURN: 
CC43 H 

BB 1 9B0 Z$- " " z Z-0 : P R I NT w C DpU N£ p 
C51 INPUT TEXT:CC43 -CLEFT] * ; 

B9 1990 BETAS; IFAS- " "THEN1 930 
□7 E000 IFAS"CHRSC13)THENG0T017 
50 

81 2010 IFA5-CHREtB0JAN£lZ>0rHEN 
PRTNTflS p, -tLEFT3 ,p ; : j GOTO 

1990 

C7 2020 IF&S>CHR$<31}ANDAS<CHR3i 
t B4 ) THENUA- ASCC AS 3 : GDTO5070 

D4 2030 IFM>CHRSCB3)ANI]AS<CHRS 
C 96 ) TH EN VR - AS C t A$ 5 -G 4 = GQTD2 0 
70 

IS 2040 IFAa>CHRSClB13ANDA*<CHK 
$ C 2?4 ) TH ENUA-ASC t AS ) - 1 2B : GO X 
U2070 

4C 2050 IFAS>CHRSClSS)ftNDfl5<CKH 
EC 1 9E 3 TH ENUA-ASC C AE3-G4: GOTO 
2070 

00 5SS0 GDTD1990 

FF 2070 PRIWTA$ P : PDKEMA+Z , UA : Z- 
Z+l 

D3 2090 IFZ + NA->rtB*E56THENPRINT 

: PR 1 NT "LDOUN J riEriUtfY FULL" : GO 
TD2330 

75 2030 IFA5-CHR*t34)THENPRINTC 

HREi EG 3 CHREt 34 3 ; 
E2 2100 PRINT H -[:LEFT3"^6DTPT9S 

0 

A5 2110 INPUT"CCLH 1 D0UNE 1 C4DGIU 
E START ADDRESS ? 2046CLEFT6 

J " 5 XT i ns-PE£KC4939G y 

73 2120 IFTT<2049DRTT>ri5*256THE 
N5110 

8F 2130 PRINT 3i :CLR p 0UWNa i C4DPRE 

ss cuhite3i:return:lc4: to st 

ART SI 

1A 2140 PRINT ?P PRES3 CUH1TE1£F73 
CC41 TD PA-JSE AND RESTART w 

FE 2150 PR1NT"PRE5S [liMITEHESPA 
CE3CC43 TO EXl T " t AD-2046 

A4 2160 5ETAI: IFAIOCHRSC 13DTHE 
N21B0 

2B 2170 PR1NT"EDOWW3^:FORX-TTTO 

fIS* 25 65 TEP 24 
7E 2190 X3-STRS(K)sXS-RI6HTSCXS 

, lens; xa 3 -1 > . pr 1 nttab c s-len£ x 
s > y tblack: n x$ ai c bpcs p c4J n ; 

EB El BB FDRY-0TD23 

FF 2200 0-PEEK(X + Y3 : 1FU>31AN0GK 

E4THENEE50 
AS 2210 IFQ->0ANDQOSTHENU-D+64 




LISTING 



£7 
71 
7ft 
Si 

3D 

FB 

7F 
33 
F4 
n~. 

17 

FF 



BB 
3A 
3A 



m 

« 
Fl 

35 

S9 

EC 
93 

ec 

D2 

55 

IF 
4D 
03 

DC 

EE 
S3 

ac 

18 
07 

ftC 
0A 

7E 



s GQTG2250 

2550 IFD->86ANDGK128THENG-G + 
S4 : G0T055SB 

5530 IFO->G4ANDQ<96TKENa-D+3 
2 i EOTD5250 

£540 PRINT"ECS.SU l C43 n ;:QDTa 

2250 PRINTCHHStfli; : IFD-34THE. 
NFR I NTCHR 5 C 20 3 CH RI < 34 5 ; 
52E 0 GE T AS : I F A3* > " "T HE N2 2B0 
5570 NEXTe PR INT i NEXT: GOTO 233 

5290 
B5S0 
^202 
5310 
310 

£330 
3FRES5 
□ EXIT" 

2340 GET j IFAHO " 
£350 GOTP1720 

S3BB PRINT"tC4,CLHl":P0KE53P 
S0 , IS : P0KE535B1 , IS: PDKE8S3 , 0 
: PQKE900 , IBB : FOKE301 k 0 
£370 PUKE4 9324 , 9 : S Y5*±9 152 : PR 
INT "E HOME t DDWK4 , C4 , SFC93PRE5 
S CUHTTE3CSPACE3i:C43 TD EXIT 



I F AS- jl C F7 3 " THEN2 310 
I FA*- " "THEN2330 
GDTQ£27fi 

GET AS: IFftS<>"CF7l"TKEN5 
GDTO5270 

PR I NT : PR I NT H CDDUjN£ a SFCS 
CUKITEH-CSPfiCE^EGHl T 

'THENE340 



5390 GETAE: IFAE-" "THEN810 
23SB GOTU5380 

2400 PRINT^tCLR] H ; ? MS-PEEKC4 
3396> 

£4 10 PRINT": HOME s D0WN2 1 C4 J nE 
55AGE LENGTH: EUHlTE]"5SG"tng 
-S> M CLEFT > C'i3 CHARACTERS " 
5450 PRINT H CDDWN£^PKESS CUHI 
TE1+CC43 TO INCREASE AND CUIH 
ITE3-CC43 TO DECREASE" 
3^30 PRINT w NUMBER OF CHAR ACT 
EES" 

2440 PR I NT " E POUND PRESS tUKIT 
EDC5PftCE3CC4: TO EXIT" 
54 S0 G E T A S : I FAS- " " T HEN24 50 
5460 IFA£-"+"ANDn5< 327HENM?- 
M5+1 f FQKE483BS . OS : GDTO5410 
2470 IFAI- ?, - fcl ANDnS>9THENT1S-r1 
S-l : F0KE433BG , MS: GDTG2410 
5400 I FAS-" "TKENGOTG1720 
£490 GDTO2450 

2S00 PRINT W CC4 , CLR3 " : P0KE535 
B4 , 0 : P0KE53S77 p 0: F0KE53571 , 0 
:R-0:5-0;T-0: TT-54 : tin- L 
2510 nC-224:FDHX-0TO4LPDKElS 
40+X , CH+X : FDKE18B0+X, CM + X+15 
B : NEXT : Al -CH : A2-A1+4 
2520 PR I NT 'THOME] " ; : FGRX-lTO 
16 : PR INT "CC 1 * ,8040 IT; 
5530 NEXT 

2540 FRINT h, IIRU5QFf F C43 Fil: CU 
H I TEJ "MM " C C4 j SFC3 3 PDK ES: CWHI 
TEJ"AL , '£C4:T0II UHITED "AS'^CH^ 

SPC33EXIT: :white:x" 

5S50 P-FEEXCSS320?; If tPANDl^ 

-0 ANUS> 0T HENS- S- 1 

2560 IFtPATJriS5-0ANDS<i5THENS 

-S+l 

5570 I F C F AND4 3 -0 ANDT-G AN OR- 1 
TKENT-2B : R-B ■ TT-34 : FDKE53264 

2530 IF CFAND4 3 -0ANDT>0THENT- 
T-l 

2590 IFtPANDBJ-BANDT-SBTHENft 
-1 : TT-0 : PGKES32S4 , 1 j T-©i GOTO 
2620 

2600 I F C PfiWDB > -0ANDR-0THENT- 

T+l 

2 B 10 IF C PAND8 ) -0ANOR - 1 ANDT< 1 
0THENT-T+: 

56£0 IF CPftNDlS >-OTHENFQKE105 
4+S*40+T+£a*R*H*l , no 



2K 



SB 
SI 

7C 

7© 

2D 
03 
AU 
25 
47 



Dl 



39 

C2 
3A 



SI 



70 



E0 



17 
02 



00 

Dl 



AC 



35 



37 



29 



55 

95 
B3 

75 



BE 
87 

4E 
IE 

FF 
£2 

14 



2630 P0KES324B J TT+T*a:PQKE53 
248 k 50+S*8 : GET AS r I FA*-" "THEN 

5 B4 0 I FAS- " C " THEN2S20 
5550 I FAS- J, + "THENnD-5B4 : ffll-1 
: PR I NT "t UPD " [ : SGTEI2540 
2BB0 LFAS-"- F, THENrtD-73: nh-O; 
PfilMT H CUPD " l = GDTO5540 
2S70 1 FAS- "X a, THENRE STORE: GOT 
□20 

2SB0 I FAS-" "THEN 27 10 

56 90 I F AS - " C F7 1 H THENGDT 03 02® 

2700 SDTD5S50 

5710 FOKE5a5B0.fi 

2720 FORUj«-0TD4 j FGRV-0TO7 : FDR 

X-7TQ0STEF-1 ? Z-PEEKt 10E4+U»B 

+ C7-X^Y*40> 

5730 ZZ-B1B5+CH»B+U*B+Y : IF2- 

224 TH ENFDK EZZ , PEEK C 22 >DR£2 " X 
3 : GOTO2750 

2740 PDKEZZ , PEEK C 221 AND tS55- 
2"X> 

2750 NEXT: NEXT: NEXT 

27 B0 FO RUJ - 0TO4 ; FQ R Y-0TO7 1 FDR 

X-7TQ0STEP-1 : Z-PEEKC 1344+U'B 

5770 Z2-ei55 + CH*BH-W»8-*-Y + a2B* 

9 : I FZ -S54T HENPDXEZ E/FEEXCZ23 

OR t 5^X3 :GDTD2730 

57 90 POKE ZZ ,PEEKCZZ? AND C 2 5S- 

2^X5 

57^0 NEXT: NEXT: NEXT :PDKE53E8 
0, 11 :GQTD2550 

5900 PRINT"CHOf1E3";FQRK-lT01 
5 : PR I NT : NEXT : PRINT 11 L BLACK35 
CH ARS FR0E1 H : UD-1 : GO5UE4S0 z UD 
-0 

5810 CH-QQ: GDT"J£500 
2B50 PRINT" C HPn E 3 lh : FORK 1 T □ 1 
S t PRINT : NEXT r PRI NT "C BLACK JUl 
RRUR UHICH CHARACTER" :UD-1 
SB 30 GDSUB450 : P0KE535B3 n 0 
2B40 £-DQ*e+BlB5 1 WO"0 J PGKES3 
2^4 3 0 : PDKES3248 , 24+X*9 i POKES 
3S43 p 5fl+V-B 

29S0 PR I NT " t HOME s EL ACK 3 h i FOR 
K-1T016: PRINT: NEXT: PRINT >EUP 

^SPCS 1 *] " 

2B80 FORQ-0TO7:PDKEaS0 + Q l PEE 
K:C2 + Q -) : FOKE3S0*Q , PEEK £ 2* L2B* 
8+Q? : NEXT 

£©70 FDKK-0Ta7:QQ-PEEKC9Sfi+K 

1 : ZZ-Z+K: FDRL-0TG7 

SB80 IFQQ-(E~C7-L))-*0TH£NPO 

KE2Z ? PEEKC2Z50RC5 L) : QU-UD-C 

e-C7-L>3iGDTD290O 

2890 POKE 22 , PEE K C Z2 1 AND C 255 - 

2~L} 

5300 NEXT - NEXT 

2910 FQRK-0TD7;QQ-PEEKC9B0+K 
3 ZZ-2*1B8*S+K: FOSL-0TQ7 
29&0 IFDD-<2"C7-L3 3->ISTHENPD 
KEZ2 , PEEKtZ230RCe rt L > : QQ-OD- C 
2"C7-L?3:GnTD25 l 10 
2330 PQ KESZ. PEEK CZ2) AND C2S5- 

2*L> 

2340 NEXT i NEXT :PQK £53560*11: 
GOTDS0 

£©50 PDKES32B0.0 
29B0 FfiINT"CKPrtE] " sfDRK-lTDl 
5 : PRINT : NEXT : P* TNT "[BLACK] HI 
RROR UHICH CHftRACTER" l :UQ-l 
5370 GQSUB450'Z-aa p B + 91S2iltin 
- 0 : PQ KE5 3E84 , 0 : P OK E53 54© , 24+ 
X*B:PGKES324B S 50+Y*e 
28 B0 PR I NT " C HDrtE , BLACK 3 " : FDR 
K-1TD1S i PR I NT : NEXT 5 PHI NT "tUP 
a SPCB43" 

5390 FO RQ~ 0TO7 : PUK ES5O+0 a FEE 
K C Z +□ 3 : PDK E3&0+O , F EEK C Z + Q+ 1 £ 
8*9 } t NEXT 

3000 FDHQ-7TD0STEP-1 : PDKEZ+Q 
. PEEKCS57-Q} : POKE 2*0+159*9 , P 



EEK C 357-Q ): NEXT 
55 3010 PDKE535B0,li:BDTD80 
54 3020 FEiNT"CHUn£3" 5 : FORX-1T0 

15: PRINT "EC4 ,50403"; 
63 3030 NEXT 
C0 3040 FOKE532B0.fi 
0A 305i0 FORU-0TO4 : FOI*Y-0TO7 ; QD- 

81 35+CH*9+W*B + Y : Z- PE EK t DQ ) : Z 

2-PEEK(0D + 12B*B3 
67 30G0 FORX-0TD7 
BC 3070 IFZ-B^C7-X^->0THENZ-Z-5 

"C7-X3 : PGKElOSH+^B-i-Y^fi+X , 2 

24 

28 3080 IFZZ-5"t7-XD->0THENZ2-Z 
Z-5 " C 7 -X > : POKE 1 344*U * B+ Y*40 + 
X , 224 

D3 30B0 NEXT i NEXT: NEXT: PRINT: PO 

KE532B0, 11:GQTD5550 
HS 3100 PR I NT " CCLR k D0UJN5 , C43 fcl T A 

B C 141 lh REPLACE TEXT u : PR I NTTfiB 

C141"1:CTla3 , * 
E4 3110 INPUT"CDQUN5,C436IUE TE 

XT START ADDRESS* 1 ; TS 
77 3120 INPUT'TDOWNIGIUE TEXT 

END ADDRESS ";TE 
IB 3130 INPUT ls CDDlaJN3GIUE NEW S 

TART ADDRESS"; MS 
C3 3140 iFTEcTSTHENPRINT"CDGUJN, 

UH I TED END SHOULD BE HIGHER T 

HAN START" :BDTG3 240 
5A 3150 IFTS<2fi'iaORTS>ai91THEMG 

DTO3230 

BC 3 1 50 I FT E< 2 048DRT E> 9191 THEN6 
□TP3230 

0A 3170 IFNS<204BORNS>6131TH£NG 
OTD3230 

A6 31B0 IFNS+TE-TS>B191THENP»IN 
T ,b CDO^N , UJH1TE3NEW START ADQR 
ESS TOD HIGH" :Q0SUB3540: 6DT0 
3100 

4B 3190 IFTE-TS>2000THENPRINT n t 
DOWN p UH I TE1TEXT TOO LONG CLE 
NGTH <- 5000 V :GDTO3240 

50 3500 PR I N T " H DO*dN 3 BL AC K 3 PLE A3 
E UJAlT ?l :PaKE535Q0 a 0 

EA 3210 K-TE-TS: FDRL-0TOK: PQKE1 
0540 + L , PEEKti TS + L 5 : NEXT = FDRL- 
0TOK 

DE 3220 FDKEN5+L s PEEK C 10240+L^ ; 

NEXT: POKE 53580, 11:6OTD1?20 _ 
9C 3070 iFZ-B*C7-X>->0THEN2-Z-5 

* C 7 -X 3 : POl^ E 1 0 54 + UJ * 9 + Y*4fi + X . 2 

24 

EB 30Bfi IFZZ-B"C7-X>->0THEN2Z-Z 
( 7-X) : POKE1344+W*8+Y*40+ 
X N 254 

D3 3080 NEXT : NEXT s NEXT : PR I NT : FD 

KE53290 N 11 : BOTD25S0 
BS 3100 PR I NT "CCLP. DQUN2 J C4 ^"TA 

BC 14? "REPLACE TEXT" : PR I NTTAB 

E4 3110 INPUT ?, i:DDUNe h C4JGIUE TE 

XT START ADDRESS" ; TS 
77 3120 TNPUT'TDOWNIGIUE TEXT 

END ADDRESS* 4 (TE 
IB 3130 INPar ,p CDOUNJGIUE NEUJ S 

TART ADDRESS "iNS 
C3 3140 I FT E< TST HENPR I N T " C DO UN , 

UHITE^END SHOULD EE HIGHER T 

HAN START " : GOTO3240 
2A 3150 IFTS<2048DRTS>9191THENO 

QTO3230 

9C 3150 IFTE<204BORT£>91S1THENG 
OTD3530 

@A 3170 IFN5<504BGRNS>ei91TH£NG 
OTG3530 

AB 31B0 rFNS+T£-TS>B191TMENPHIN 
T K TDDWN P WHITE3NEW START ftDDR 
ESS TOO HIGH": GOSUB3240? GOTO 
3100 

4B 3190 IFTE-TS>2Q00THENPB'INT I> L 
DOWN, WHITE] TEXT TOO LONG CLE 
NGTH <~ 2000)" iGOTQ3240 
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50 3200 FR INT": PDidN , BLACK 1 PLEAS 

E WAIT H :PDKE53260 S 0 
EA 3210 K-TE-TS:F0RL-arDK:POKEl 

0210 + L , PEEK C TS+L } i NEX T : FDRL- 

BTDK 

D£ 3E2Z- PnK^NS+LpPEEKCieeTO+L): 
NE XT : POKE 53 280 , 1 1 : GO TO 1 7£0 

BE 3530 FR 1 NI " E WH I T E , DOWN 3 TEX T 
MUST BE BETWEEN 504B AND B13 

2 ! " 

S5 3540 FORL«1TQ2000:NEXT:GCTO3 
100 



[7S 



£4 10 BL-33 :LN-90 : 5A-4315 
g 

C0 £0 FDH L-0 TO SL:CX-0:FCR D- 

0 ID 15: READ A:CX-CX+A 
67 30 PDKE53BB0 s A s POKE Sfl + L*1E + 

D, fl : NEXT D 
73 40 READ A : IF A><CX TKENPRINT 

"ERRDR IN L I NE 11 ; LN+ C L* 10 } : ST 

DP 

C4 45 NEXT L : 5YS49512 

39 50 DATA 120.169,31 , 141 , 13, EE 

0, 141,13,251,173, 13,220, 173, 

13,251,173, 2055 
13 60 DATA I7,BlMl*l»iWiW 

,209,163, 196, 141,50,3,163, 19 

2,141 , El ,1913 
64 70 DATA 3,159,1,141,25,209,1 

69 , 66 , 141 , IB , 209 , 39 , 96 , 163 , 5 
00,141,1B44 
02 60 DATA 55,506,169,511,141,5 

0,3, 159,193 , i4i .ei ,3. 169,251 

,141,16, 1679 
63 90 DATA 20B , 1 59 , 1 , 141 , £5 L 5 EG 

, 76 , 49 , 234 , 1 B9 a 139 , 141 , 22 !, 20 

8, 165,138,5217 
BE 100 DATA 141, 20,, 3, 169, 19B, 14 

1 ,21,3, 1B9, 66, 141,16,206, 169 

a l a 141,1503 
F6 1112 DATA 55, 20B, 234, 234,534, 

174,131,3, 232 , 524 , 1 , 240 p 6 p 1 4 

5, 131,3,5252 
0E 128 DATA 76,49,534,162,0,145 

, 131 ,3, 174 ,135,3,505,554, 191 

, 50B. 3, 1934 
C4 130 DATA 75, 140, 132, 145, 5P, 5 

06,145, 1 32 , 3, 76 p 49, 234, 162, 1 

99, 142,132,2051 
SI 140 DATA 3,150,0,195,1,4,153 

,0,4, IBS ,41,4, 153, 4B , 4 , SOB , 1 

137 

50 150 DATA 192, 40, 240, 3, 75, 147 
,192, 174, 133,3 , 169,0,6, 141,3 
9,4, 15B1 

DB 150 DATA 105,127,141,73,4,23 

4 , 534 , 234 , 234 , 234 , 535 ,142,13 

3, 3, 1B9, 199,2504 
FE 170 DATA 141,74,135,75,213,1 

92, 160,2,136, 505 , 253 , 1 S3 , £ 1 , 

141 ,24,50B,2£l6 
17 180 DATA 76,45,195,159.55,14 

1,54,505.75,73, 192,174, 133,3 

,224,0,1755 
S7 130 OAT A 240,3,75,49,534,174 

,172,192,232, 224 , IB , 506 ,5,16 

2,9,145,5130 
54 200 DATA 172,192,76,49,534,1 

20, 169,31,141,13,250, 141, 13 t 

521, 173,13, 1976 
09 210 DATA 220,173,13,521,173, 

17,206,41, 127,141,17,206, 169 

,34 ,141,20, 1323 
EB 250 DATA 3,163,193,141,51,3, 

IBS ,1,141, EE, 209 p 169, 50, 141, 

15,206,1661 
7B £30 DATA 89,96,169,51,141,24 

n 209,169, 62, 141, 50. 3, IBS, 133 

, 141,21, 1556 



EE 240 DATA 3,169,166,141,16,20 

9,169, 1,141,25, 509 , 76 , 43 , 234 

,534,534,2035 
BB 250 DATA 534 , £34 , £34 , £34 , £34 

, £34 , 534 , 163 , 55 , 141 , 24 , 209 , 2 

38,33,208, 169,2959 
9C £60 DATA 34,141,20,3,169,133 

,141,21 ,3, 159,50.141, 16,209, 

169,1, 1491 
52 570 DATA 141.35,206,76,43,53 

4,0,0,163,0,133,250,163,192, 

1 33 , 251 . 5030 
6C £00 DATA 159,0,133,174.133,1 

33.153, 162,133, 175,133, 194,1 

53, 104,133,252,2456 
F5 230 DATA 153,193,133,253,150 

, 0 , 177 p 2 50 , 1 45 , 174 , 230 , 250 , 2 

06,2,230.551 ,2625 
BA 300 DATA B30 , 174 ( £08 , 2 , 230 , 1 

75 , IBS , 250 , 197 , 252 , 208 , 234 , 1 

65,251,197,253,3191 

19 310 DATA 203,529,153,3,133,1 
B7, 169,194, 133,138,169,3, 133 
,193, 1 £9,0, £269 

AB 320 DATA 133,165,160,0,195,2 
1 1 , 193 , 240 , B , 3£ , 210 , 255 , 200 , 
506,245,32,2435 

20 330 DATA 207 , 555 , 240 , 551 , 201 
, 49 , 540 , 4 , 201 , 55 , 4B , 530 ,41,1 
S T 133, 196, 2357 

AS 340 DATA 75,534,245,147,17,1 
7 , 7 3 , 7 B , B0 , B5 , B4 , 32 , 68 , 5 9 p 85 
,73,1464 

30 350 OATA 67. S3, 3£. 76, 65, 77,5 
5 , E 5 ,32. 13,17, 57 , 55 , 93 ,61, 49 
,980 

76 350 DATA 32,47,32,68,73.83,7 
5 , B 1 , 32 , 55 , 32 , 7 9 , 62 , 32 , 57 , 56 
,693 

90 370 DATA 45,32,0,77,47,67,0, 
0,0,0.0,0,0,0,0,0,269 

AD 360 DATA 0,0,0,255,255,255,2 
55,0,0,0,0,0,0,0,0,0, 1020 



PROGRAM : CHARACTER MAKER 



E3 10 BL-139 :LM-50 :SA-3B8B 
4 

CZ 50 FOR L-0 TO EL:CX-0:FDft D- 

0 TO 15i READ A:CX-CX+A 
B7 30 PDKE53280,AjPOKE SA+L*1B+ 

O, A; NEXT D 
73 40 READ A: IF A><CX TKENPRINT 

"ERROR IN LINE" -LN+CL*10?fST 

OP 

C5 46 NEXT Li 5^556920 

75 50 DATA 56,108,69,145,195,17 

0, 1E2 , 1E5 , 154,554,193, 196,25 

4,254,133, 102,2640 
58 50 DATA 252,254,196,199,138, 

255,255, 196,46, 124,110, 198,1 

96, 132,192, 192,3056 
BA 70 DATA 246,255,15,54,54,54, 

54,10£,S0 : 1 EE , 102, 132 a 135, 55 

4.115,35,1934 
5D 30 DATA 552,254,199,196,192, 

132,35.35,29,52, 118, 102,96, 1 

32,192, 192, £460 
B5 30 DATA 19£ , 132 , 155 , 132 , 35 , 9 

6 , 96 , 1 54 . 54 , 24 , 0 , 24 , 24 , 24 , 24 

,24,1346 

DB 100 DATA 12,12,0,12,12,12,15 

,5,192,192, 192,192, 192,204,2 

20, £46, 1710 
51 110 DATA 192,192,96,95, 95, 4B 

, 49 , 46 5 130 , 196 , 254 , 254 , 214 , 1 

98, 158,199,2460 
58 120 DATA 220,254,230,193,133 

,139,102, 102,50,126, 102, 10£, 

169,190, 199, 19B.26B4 
34 130 DATA 240,552,206,139,198 

,102,110,124,50, 156, 102, 102, 

196, 198,198, 13B,£61£ 



01 140 DATA £46,252, 1£, 13B, 13B, 

139,504,552,56, 124,236,196, 1 

32,524,120,26,2742 
44 150 DATA 95,96,240,120,35,35 

.96, 132.136, 139,193, 198, 199, 

133,1 96 H 138,2616 
C9 160 DATA 196,193,133,136,199 

, 106,106,106, 12,14,6, 102.105 

, 19*3 t ~±3U, 1SE -, 3144 
55 170 DATA 136,138,196,139,196 

,106, 106,56,13B, 13B, IBB, 138 , 

130, 105, 155,30,5510 
16 1B0 DATA 554,254,5,6,14,12,2 

8 , Sti , 50 , 50 , 43 , 43 , 43 , 49 , 49 , 46 

,1038 

B6 190 DATA 120,252,536,139,195 

.192 ,96.104,30,60,12.12,15,1 

2,12, 12, 1SB4 
CiJ 200 PAT A 16,16,56,55,124,124 

, 254 , £54 , 19, IE, IE, 4B , 46 , 112, 

1 IE , E54 , 1552 
3D 510 DATA 0,0,0,0,0,0,0,0,60, 

E E , 5 0 , 50 , 50 , 6 0 , 60 , 24 , 444 
CF 220 DATA £36 , £39 , 34 , 1 0£ , £04 , 

0 , 0 , 0 , 54 , 54 , 54 , 54 , 54 , 236 , 252 

,136,1700 
54 530 DATA 60 , 124 , 254 , 22£ , £16 , 

243,120, 124,98, 146,150, 102, 1 

£„ 15,54,54, 1935 

73 540 DATA 48 , IBB , 7£ , 216 , 206 , 1 
44 , 240 , 95 , 56 , 56 , 3 , 54 , 46 , 0 , 0 , 
0,1336 

BE 250 DATA 59.56,56,36,155,132 
, 132, 135, 112,35, 15, .15.6,6,3, 
B, 1550 

FB E&0 DATA 0 , 0 , 0 , O , 0 , IB , B4 , 56 , 

0 , 0 , E , 0 , E4 , 54 , 54 . 1 25 , 354 
A6 570 DATA 0,0,0,0,0,0,0,0,0,0 

,0,0,0 , 0, 0, 254 ,254 
FB 260 DATA 0,0,0,0,0,0,0,0,2,2 

, 5,6, 12, IE, E4 , E4 , BB 
C9 290 DATA 124 , 186 , 198 , 196, 199 

, 188,130,0,0,2.6,6,6,6,2,0, 1 

550 

6E 300 DATA 124,58,6,6,6,6,59,1 
24 , 124 , 56 , 6 , 6 , 5 , 6 , 59 , 124 ,776 

H7 310 DATA 0, 130, 193, 135,136,1 

98, 186, 124,124, 164 , 192 , 19£, 1 

9£, 135. 134, 154,5515 
9D 320 DATA 124,104,135.135,135 

, 135 , 1B4 , 124 , 124 , 58 , 6 , 6 , 6, S , 

£,0,1532 

0C 330 DATA 124,186,198,198,196 
, 199,165,124,154,196,199, 13B 
,198, IBB, 1B6,154.5B54 

C0 340 DATA 0,0,0,55,^5, EE, 0,0, 
0, 0,0,55,55,55,0,0, 336 

AC 350 DATA 0 , 0 , 0 , 0 , 2 , 1£ , 49 , 19£ 
, 0 , 0 , 0 , 0 , 0 , 1£4 , l£4 , 0 , 902 

6F 350 DATA 0,0,0,0,126,96,24,6 
, 124 , 254 , IBB , 13B , 102 , 6 , 12 , 59 
,1175 

F0 370 DATA 0,0,0,0.1,5,63,54,0 
,0.0, 555 , 37 , 69 , 550 , 5 , 74 B 

C4 390 DATA 0,0,0,555,5,4,2,255 
,0,0, 0,224, £4, 132.130, 1B5, 11 
55 

74 390 DATA 0 , 0 , 0 , 0 , 0 , 0 , 0 , 224 , £ 
24,24,4,2,2,1,1,1,493 

CQ 400 DATA 0,0,0,0,0,0,0,0,0,0 

,0,0,0,1,1,1,3 
7H 410 DATA 1 h . 4B , 54 , 128 , 123 , 0 , 

0 , 0 , 15 , E3 , U5 , 95 . 135 e 192 , 192 

,19£ fc 1437 
0D 420 DATA 128,128,126,124,120 

,112,95,0,255, 127, 191,95, 175 

, 87, 171 , 95, 2020 
DF 430 DATA 555,254,255,252,246 

,225.196, 144,137,32,34,34,33 

,0, 0,0, 2145 
1A 440 DATA 146 , 92 , 62 , 62 , 14£ , 0 , 

0.0, 224 , 144 , 255 . 1 5 1 , 1 45 , 3 1 3 , 
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3 , 1 442 

3 A 450 DATA 232, 243,145, 147,18, 
B S E P B p 135,^^7, SI, 13^7,^7 
, £6 , 1420 

E9 460 DATA 31,25,25,153,153,16 
9,163, 163 . 142 , 140 , 140 , 204 , 21 

2,213,213, assess 

96 470 DATA 43.120,72,204,132,1 
34 , 134 ,, 134 , 240 h £10 , 144 „ 152, 1 
36, 141,141,141,2314 
90 490 DATA 49,150,72,201,132,1 
34, 134,134,541 ,243.140, 140,1 
32 a 140 , 140 , 249 , 2403 
63 490 DATA 252,132, 129 ,126, 153 
, 12a , 136 , 249 , 24S , 252 , 252 , 132 
, 134 , 143, 100,132 ,2726, 
9A 500 DATA 7,54,32,70,76,140,1 
30 , 1 30 r 2 24 , 24 , 4 , 50 , 38 , 37 , 1 , 6 
5,1172 

3D 510 DATA 1,3,6.15.21,32,106, 
126,255,255, 170 p 255 , 95 , 0 , 170 
,0,1502 

35 520 DATA 1 50 , 153 , 150 , 24E , 85 , 
4,170,1,6, 3,25,65,63,67,12, L 
5,1253 

49 530 DATA 0,0,112,246.135,200 
.££4, 96, 0,0,0, 1,1,133, 132,54 
,1H6? 

05 540 DATA 31,105.177,49,255,3 
6,4,4,0,155,130, 144,210, 144, 
0,0,1542 

DD 550 DATA 31 , 1 7 , 17 , 245 , 129 , IB 
1 p 126 , 215 ,0.0,0, 224 , 32 , 150 , 3 
2,224, 1664 
D4 530 DATA 63 , 54 , BB , 155 . 150 , 14 
4 , 140 , 128 , 543 , 4 . 52 , 1 11 . £10, 1 
3,36,2,1573 
03 570 DATA 1,1,0,0,0,0,127,62, 
0,133,541,35,95,255, 128,65,1 
2Q7 

EE 560 DATA ® , 0 , 139 , 144 , 240 , 20S 
,135, 154,7,1.3:, 15,63,127,231 
, 1 33,1582 

55 590 DATA 126,0,64,123.192,22 
5 , 33 , 49 r 30 p 33 , 73 s 1 15 p 30 . 210 , 
56, 130,1566 

13 300 DATA 3, 2, 4, 132, 75, 43, 2. E 
, 0 p 135 , 36 , 63 , 135 , 140 , 76 , 76 , 1 
003 

C6 610 DATA 0,0,0.0,0,0,0,0,0,0 

, 0 , 12 , 53 , 60 , 103 , 204 , 412 
D4 620 DATA 0,0,0,49,24,29,53,1 
3 p 0 . 0 , 0 , 103 p 134 , 194 . 65 , 66 , 76 
5 

05 630 DATA 0 , 0 , 0 , 15 , S7 , 33 , 32 , 6 
4. 555. 131 , 131 P 131 , 255,254, 25 
3,353,1934 
C9 540 DATA 255 , 25 5 , 255 , 255 , 255 
, 53 , 2E3 s 223 , 255 , 555 , 132 , 12© h 
123. 143, 146, 146, 3177 
0B 550 DATA 255,555,0,0.0.255,2 
25 , 225 , 25b ,^5,3,1,1, 211 , 73 , 
73,2117 

F0 SEE DATA 255,112,35.32,33,33 
,33> 154, 255,0, 105,155, 10,2,2 
,130, 1353 
70 670 DATA 256,0,207,100,36,36 
,36,35, 355 , 0 , 2£ 3 . 21 6 , 52 , E s 2 p 
2,1490 

74 590 DATA 255,7.135,193,65,0, 
0 , 0 , 131 , &3 , 69 , 69 , 56 , 56 , 56 , 69 
1352 

ID 630 DATA 162,162,170,168,146 
p 69 , 109 , 56 , 102 . 102 ,5,6,12,12 
,12,24,1334 
EE 700 DATA 102,102,102,102,103 
,12, 124, 120,195,132,199,198, 
199 , 204 , 252 , 1 50 , 2325 

56 710 DATA 103, 10a, 199, 196, 133 
,133.254. 252 , 192 , 132 , 192 , 192 
,130, 19B,2S4, 124, 3044 

FE ?m DATA 120,248,35,49,46,48 
, 46 , 49 , 192 , 205 , 222 ,196,198, 2 



06,252, i20 p 2 see 

S3 730 DATA 126,116,102.102,102 

p 102 , 102 . 102 , 24 , 24 , 48 , 49 , 49 , 

46, 112,95,1304 
E3 740 DATA 6 p 3 , 6 , 15B , 199 , 102 p 1 

26 , 60 ,240 , 249 , 1 30 , 106 , 105 , 10 

9,110, 102.1346 
12 750 DATA 46,46,46,96,96,38,2 

54, 252. 102, 6, 6,6, 15, 15. 12,24 

,1120 

flE 763 DATA 1(32,6,6,6,12,12,29, 

24 , 136 , 199 , 199 , 168 , 136 . 102 , 1 

24,66, 1456 
AF 770 DATA 130.95,49,46,43,46, 

46 , 46 , 133 , 136 , 214 , 222 , 252 , 22 

0,554, 111.5145 
EC 7B0 DATA 120 , 10B , 106, 102 , 102 

, 1.99 , 1 96 , 133 , 12, 14, 5,6, 133 , 2 

39, 124,56, 17SB 
09 730 DATA 192,192,132,196,196 

,110, 124 , 56 , 1 33 , 136 , 1,9B , 196 , 

199,230,126,52,^670 
EA 600 DATA 108,103.55,56,56,56 

, 16, 16,136,138,133,196,214,2 

52,546, 102,2043 
70 310 DATA 108, 103. 13B, 198,136 

,199.196,189,6,6,5,5.12,12,1 

2,24,1466 
BF 850 DATA 112 , 96 , 251 , 132 , 192 , 

1 92 , 254 , 554 , 46 , 46 , 49 , 4 3 , 4 3 , 1 

8 , 60 , 60 , 1 924 
CI B30 DATA 243,240,96,96,33,12 

2,254,204, 15, 13,12,12,12,12, 

60,60,1543 
DO B40 DATA 56,56.55,55,56,56,5 

5 , 55 , 254 , 1 1 2 , 1 1 2 . 49 , 49 , 48 , 1 5 

,16,1105 

AF B60 DATA 0,0,0,0,0,0,0,0,54, 

24 . 24 , 24 , 24 , 0 , 24 , 24 , 169 
16 660 DATA 0,0,0,0,0,0,0,0,538 

,252,125,206,216,215.216,216 

,1686 

C5 97B DATA 50 , 62 , 51 , $4 , 246 , 238 

, 252 , 216 . 49 , 46 , 96 , 64 , 204 . 2 10 

, 146,140,2170 
5D 630 DATA 224,162,132,149,156 

p 156,222, 114, 0.O, 0,0, 0,0,0.0 

,1364 

D9 680 DATA 192,192,132,133.35, 
95,55,26,5,5,5,6, 12, 15,56,11 
2, 1250 

FC 300 DATA 254,56,84,16,0,0,0, 

0 , 125 , 54 , 24 , 24 , E , 0 , 0 , 0 , 508 
43 910 DATA 0,0,0,55.56,9,24,43 

,254,0,0,0,0,0,0,0,446 
33 320 DATA 0,0,0,0,0,56,56,56, 

16 . 16 , 36 , 95 , 132 , 192 , 123 , 129 , 

1096 

E8 930 DATA 130,198,193,196,199 
,133, 165.124,2,5,6,6,3,6,2,0 
,1454 

B4 543 Orvici 184,132, 132,192 , i9P 

,132, 194,124,58,5,5.3.6,5,58 

,124,1722 
IF 350 DATA 56,6,6,5,5,61,2,0,56 

,5,5.6,6,6,56, 124,350 
37 360 DATA 186,133,196,196,136 

,199,196,154,2,6,5,6,6,6,2,0 

, 1550 

63 970 DATA 186,136,139.196,198 

, 1 36 , 166 . 124 , 56, 6 , 5 , 6 , 5 , B , 56 

,154,1756 
63 960 DATA 0 , 0 , 55 , $6 , 56 , 0 , 0 , 0 , 

0 , 0 , 56 , 56 , 55 , 8 , 24 , 46 , 416 
66 990 DATA 152,48,12,2,0,0,0,0 

, 0, 124 , 124, 0,0, 0, 0,0, 502 
0E 1000 DATA 5,24,96,128,0,0,0, 

0 , 24 , 24 , 24 , 24 , 21 , 0 , 24 , 24 , 4EE 

26 1010 DATA 134, 135, 128, 225. as 
5,30,0,0,244,10,249,141,119, 
219,216, 112,2217 

3E 1020 DATA 2,26,2,2,555,255.0 



, 0 , 4 , 136 , 15 , 21 , 547 y £37 ,13,7, 

iaes 

5F 1030 DATA 26 . 2 . l£S > 199 , 126 , 1 
63,126,0, 1.1,1,0,0,0,0,0,803 

AE 1040 DATA 0,0,0,129,126,64,4 
B, IS. 1,1, 1,2,2,4,24,554,542 

CF 1050 PATA 0,0,0,0,0,0,0,0,13 
S p 132, 132 p 132, 35, 1 12,63, 15,1 
054 

41 1050 DATA 0,32,80,40,84,42,1 

2B, 129,170,64,156,80, 160,54, 

126,0, 1398 
IE 1070 DATA 65,1,16,1,4,0,1,0, 

0,0,0, 0, 0, 0,0,0, 91 
DE 1060 DATA 0,0,0,0,0,0,0,0.3, 

3,3,1,1,1,0,0,12 
FD 1090 DATA 6,6,5,10,11,145,24 

1 , 524 , 2 5 , 25 , 26 , 1 9 . 50 , 34 , 526 , 

139 , 1254 

BF 110S DATA 159,153,201.201,20 

1,201,73,95,95,85,101 , 100,10 

0,100,35, 174,2091 
17 1110 DATA 134,134,134,132.20 

4,75,120,43.141, 141 , 141 , 136 , 

152, 144,240,240,2314 
FS 1120 DATA 134,134,134,132.20 

4,75, 150,49, 175.175,152,152, 

152,152, 140,207,5265 
26 1130 DATA 248,135,123,128,13 

6,129, 132, 252, 255, 13a, 190, 13 

2 , 252 , aae , 252 , 249 , 2955 

BF 1140 DATA 153,176,172,67,64, 
3a, 24, 7, 145,9,57,134,2,4,54, 
224,1354 

92 1150 DATA 129,105,32,21,13.8 
,3,1,0,170,0,85,255,170,255, 
2S5,1502 

99 1160 DATA 1,170,4,99.240,160 
,132.128,24,6,15.24,24,0,24, 
24.1127 

98 1170 DATA 65,130,12,0,1,2,1, 
3 , 224 , 240 , 203 . 20B , E4 ,32,15,4 
3,1251 

BA 1160 DATA 4,4,4,4,4,4,4,31,0 
, 0 . 0 , 0 , 96 , 2 52 , 62 , 20 , 483 

EC 1190 DATA 17,17,17,17,21,95, 
255 , 255 , 0 , 0 , 0 , 0 . 0 . SE , 1 92 , 240 
,1212 

07 1200 DAtA 130,123,135,71,69, 

35. 16, 15, 130.2, 34, 195, S3, 72, 

16,224,1343 
63 1510 DATA 63,140,133,143,139 

, 1 33 . 65 , 62 , 34 , 147 s 253 a 255 , 25 

3,129,0,0,1370 
IS 1220 DATA 226,33,33,49,25,1, 

130, 154,532,111, 13,29,55,112 

,97,49, 1320 
83 1230 DATA 195 , 156 , 206 , 19$ , 19 

3, 132.126,224,2,2,2,1.129,19 

2,0,0,1807 
DF 1240 DATA 4 , 1 , 0 , 6 , 145 , 243 , 17 

, 62 , 52 , 4 , 1 32 , 1 40 , 24 , 540 , 0 , 0 , 

1072 

1A 1250 DATA 1,3,5,12,31,46,35. 
240, 14E, 12, 15,15,252, 12,12,3 
0,313 

BB 1260 DATA 35.3^.32,32,65,65. 

65 , 227 B 132 , 132 , 132, 132 , B , 9 , 9 

,156,1259 
52 1270 DATA 64.54,126,128,143, 

198 , 105 , 60 . 253 , 254 , 255 , 255 , 2 

55,255.255,255,2924 
E7 1280 DATA 223,55,255,127,127 

, 127 , 1 27 , 255 , 143 , 1 28 . 255 , 2S5 

, E46 , 240 , 554 , 25 S , 3044 
FF 1290 DATA 255,0,555,255,0,0, 

0,555,241,1,255,255,31 , 15,7, 

255,2090 

55 1300 DATA 252,164,32,32,32,3 
3, 113, 249, 96,13,10, 10, 10, 10, 
133, 113,1315 

18 1310 DATA 37,47.37,35,36,35. 
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1 00 , 206 ,2,2,2,2,2,2,2,7, S5E 
FD 13£0 DATA 0,0,0,0, 117 ,39,37, 
37 , 58 , 59 , 66 , 58 , 66 , 68 , 66 , 56 , 7 
62 

D7 1330 DATA 32,0,0,0,0,0,0,0,1 
66 s 0 , 133 , 2S0 , 169 , 144 , 133 B 251 
,1261 

7B 1340 DATA 163.0,133,174,133, 

133,153.32,133,175, 133,164, 1 

63,6, 133,^52,2200 
66 1350 DATA 153 , 152 , 133 , 253 , 16 

0 , 0 , 177 , 250 , 145 b 174 , £30 , £50 , 

806 ,2,230,251,2764 
f\2 13E0 3ATA 230,174,205,2,230, 

175 , 1E5 , 250 . 1 37 , 252 , 203 , 234 , 

165,251,197,253,3151 
43 1370 DATA 208,226,153,163,13 

3 . 167 . 153 , 152 , 133 , 168 , 1 53 , 5 , 

133, 193, 169, 0, 23B3 
F5 1380 DATA 1 33 , 1B5 , 160 p 0 , 1 BS , 

US, 152,2*10,6, 32, £10,255,200 

, 206,245,32,2358 
6B 1390 DATA 207,256,240,251,20 

1 , 46 , 240 , 4 , 20 1 , 5G , 4 B , 230 ,41, 

15, 133,166,2357 
60 1400 DATA 75.234,245,147,17. 

17 , 73 , 7-9 , 60 , B5 , B4 , 32 , 5H , EE . E 

5,73,1464 
28 1410 DATA &7 , 53 , 32 , 78 , 65 , 77 , 

66,63,62,13, 17,67,65,63,61,4 

3 , 390 

40 1420 DATA 32,47,32,58,73,83, 
7^,51, 32,55,32,75,32, 3P, 57 ,5 
8,866 

AE 1430 DATA 45,32,0,67,72,65,8 
2,63,0,0,0,0,0,0,0,0,446 

35 1440 DATA 0.0,0,255.255,255. 
255 , 0, 0, 0, 0, 0, 0,0, 0,0,1 02 0 



PFOGRAN : TEXT MAKER 



7D 10 BL-7S iLN-50 ;5A-3614 
4 

C0 20 FOR L-0 TD 6L:C£-0-FOR D- 

0 TD IS : READ A:CX-CX+A 
B7 30 POKES 3590, ft :FDKE SA*L*16* 

D, A: NEXT □ 
73 40 READ A; IF AXCX THENPR I NT 

"ERROR IH LINE"; LN+ C L" 1 0 } ■ ST 

DF 

CD 45 NEXT L;SY533l7£ 

13 50 DATft 20,3,6,32,13,5,13,13 
,1,7,5,35,3,15,14,19,517 

5E 50 DATA 20,15,21,3,20,3,15,1 

4 , 32 h 1 1 . 9 , 20 p 32 . 23 . 1 . 1 9 . £67 
El 70 DATA 32,23,13,3,20,20,5,1 

4, 32,2,25.32,5, IB, 1 , 14 ,271 
E5 90 DATA 11,32,22,1,14,32,20, 

3,7, 7, 5, 12, S, 14, 32, 9, 232 
□3 30 DATA 14,32,13,1,16,3,5,32 

, 43 , 57 , 96 , 55 , 32 , 5 , 15 , IB , 410 
35 100 DATA 32,20,6,5,32,16,5,1 

6,9, 15,21,19,32,21, 19,5,260 

14 110 DATA 16,39,19,32,7,51,9, 
4 , 5 , 46 , 46 , 43 , 1 3 , 3 , 1 1 , 32 > 35 1 

m 120 DATA 1,12,15.15,83,19,32 
, 1 , 14 , 55 , 13 , 14 , 5 , 32 s 20 , 15 , 25 
S 

FD 130 DATA 32,3,16,5,1,20,5,32 
,20,6,5,6,18,32, 15,23.546 

4C 140 DATA 14,32, 16,13,15, 15,2 
0,8,45,19,3,16,15, 12, 12,3,25 
5 

66 150 DATA 14,7.44,32,3,14,20, 

5,13,13,21, 16,20,32, 4, ie,eae 

19 160 DATA 9,25,5,14,32,13,5,1 
9,19,1,7,5, 19,32,83,9,233 

63 170 DATA 9,3,8,32,53,9,12,12 
,32, 5, aS, 3,14,32, 18,21,257 ' 



2F 160 DATA 14,32,1,12,13,14,7, 
13,9,4,5,32,1,14,15,20,214 

67 190 DATA 6,5,16,32,16,16,15, 
7,19,1, 13,46,46,46, 46,45, 3^1 

D9 200 DATA 49,45,46,46,46,46,3 
2 , 20 , 6 , 5 , 13 , 5 , 32 , 13 , 5 , 13 , 434 

20 210 DATA IB, 1,7, 5, 19, 32, 3, 15 

,14,60, 1,3,14,32,21,13,231 
0A 220 DATA 5,16,32,4,5,5,9,14, 

5,4,32,7,16, 1,15,6,134 
58 230 DATA 9,3,19,32,1,14,4,32 

,3,9,1,16,1,3.20,5,173 
57 240 DATA 18,13,44,23,6,9,3,3 

,32,1,16,5,32,5,1,19,545 
96 250 DATA 9 , 12 , 25 , 32 , 4 , 5 , 19 , 3 

,7, 14,5,4,32,21,19,9,225 
E3 260 DATA 14,7,32,20,6,5,32,3 

,9,1,19,1,3,20,5, 16, 195 
60 270 DATA 32,5,4,9,20,15,16,3 

2,32,32,32,32,32,32,32,32.33 

1 

E5 280 DATA 32,32,32,32,32,20,5 
, 24 , 20 , 1 9 , 32 , 3 , 1 , 14 , 32 , 2 , 3 32 

SB £S0 DATA 5,32,23, 16, 9, S0, 20. 

5,14,32,21, 19,6,14,7,32,280 
60 300 DATA 20,8,5,32,19,3,19,1 

6, 12,5, 32, 20, 5, 24, 20, 32, 272 
99 310 DATA 5,4,3,20,15,13,32,4 

6 , 4 5 , 46 , 45 , 46 , 46 , 45 , 46 , 46 , 51 

7 

53 320 DATA 36,1,35,6,5,23,32,5 

, 24 , 1 , 1 3 , 15 , 1 2 , S , 19 , 32 , 256 
B6 330 DATA 15,5,32,23,6,1.20.3 

2,3,13,32,15,15,13, 13,3.275 
C2 340 DATA 2,12,9,32,23,9,20,8 

, 32 , 1 3 , 3 , 1 1 . 32 , 56 , 32 , 32 , 324 
CS 350 DATA 64,65,66,67,69,32,3 

,9,9, 12,4,9,13,8,35,16,495 
D3 350 DATA 9,3,20,21,19,5,19,3 

2 . 45 , 45 , 46 , 4S , 45 . 45 . 7 7 , 79 , 55 

9 

5E 370 DATA 73,80,61,62.63.84,9 

5,66,67,88, 32,32,122, 123,124 

,125,1393 
FE 390 DATA 125,32,32,112,113,1 

14,115,116,112.113,32,32,73, 

74.35,54,1292 
40 390 DATA 52,32,32,32,32,15,1 

5,7, 15,13,32,45,46,45,45,46, 

510 

ID 100 D*TA 46,46,46,46,32,75,7 
B , 75 , 75 , 7S , 79 , 92 , 93 , 94 , 92 , 93 
,1133 

7C 410 DATA 94,92.93.93.93,94,9 
2,93, 34 , 32 , S3 , 94 , 75 , 75 , 76 , 76 
,1419 

3A 450 DATA 79,75,32,32,2,1,19, 
45 p IB, 5, 12.9.5 ,5, 35, 7.37B 

55 430 DATA 18,1,15,3,3.3,19.32 
, 46 , 46 , 46 , 46 , 49 , 45 , 4 6 , 32 , 450 

6F 440 DATA 95,99,97,98,39,32,3 

2,32, 100,101,32,32,102, 103,3 

2,32,1115 
C9 450 DATA ^2,104,109,106,32,3 

2,32,107, 103,109, 110, 111,32, 

32, 32,32,1116 
05 460 DATA 32,90,91,32,32,32,3 

2,13, 15, 19,5,32,3,8,9, 12,456 

A5 470 DATA 4,3,13,3,35,19,20,2 
1 , 6, 5 , 32, 46, 49 , 46 , 46 , 46 , 406 

0C 4S0 DATA 32, 32, 32, 32, 32, 2£, 3 
, 9 , 19, 32, 13 , 5, 19, 19 , 1 , 7 , 312 

77 490 DATA 5,32,3,15,14,20,1,9 
, 14 , 1 3 , 32 , 43 , 4B , 60 , 52 , 32 , 395 

S3 500 DATA 3,6,1,16,1,3,20.5.1 
6,16,44,2,21,20,32,3,219 

73 510 DATA 1,14,32,2,5,32,5,14 
,12,1,19,7,5.4.32,20,204 



96 520 DATA 15,32, 14, 15,32,12,5 
,19,19,35,50.6,1,14,35,54,32 

76 530 DATA 43,52,52,32,9,6,1,1 
6,1,3.20,5,16, 19,32,33,346 

F3 540 DATA 32,32,32,32,19,3,11 
,32,18,21, 14,13,32, 15, 14,32, 
352 

El 990 DATA 73,74,32,54,52,32,1 
,14,4,32,73,74,32,43,50,56,7 
02 

64 560 DATA 32,40,3,14,32,54,52 
,32,13, 15,4,5,41,32,23,9,407 



7C 



3A 



56 



DA 



33 



30 



5E 



570 DATA 
15,19,32 
5,45,322 
580 DATA 
,54,15.5 
3 

590 DATA 
1, 13, 19, 
500 DATA 
32,20,6, 
510 DATA 
32,33,32 
12 

620 DATA 
9,13,1,7 
630 DATA 
15,14,32 



20,3,32,117, 116,32, 
,113,120.121,32,46,4 

46, 46, 46, 46, 46,32, 5 
, 3, 20,35, 13,15,16, 41 

5,32,15,13,15,7, 18, 
32,21 , 19 r 9, 14,7,245 

32,13,3,11,35,9, 14, 
5,32, 14,5, 1,13,249 

32,5,51,20,21,13,5. 
,35.32,32,32,35.32,4 

32,20,8,5,32.13,5,1 
,5,32,3, 15,14,230 

13, 20, 16, 21, 3, £0,9, 
, 11,3,50.32,32,0,275 



57 640 DATA 32,49,57,55,55.35,5 
,16, 1,14, 11,35.22,1,14,32,43 

3 

C2 650 DATA 20,9,7,7,5,12,5,14, 
3 2 , 33 , 32 , 25 , 15 . 21 , 1 3 . 32 , 292 

54 660 DATA 3,15,13,13,15,4,15, 
13,5.39, 19,32,19,5,13,3.242 

Al B70 DATA 15.21,13,32,21,18,5 
, 1 6 , 33 , 1 3 , 32 , 7 , 2 1 , 9 , 4 , 5 , 266 

9F 660 DATA 32,32,32,32,32,32,3 
5 1 32 , 32 , 32 , 32 , 32 , 32 , 32 , 32 , 32 
,512 

0C 630 DATA 0,0,0,0,0,0,0,0,153 
,0,133, 250 ,169,149, 133, 251 , 1 
2541 

11 700 DATA 163,0,133,174,133,1 

93,159,9, 133.175, 133, 194,159 

,6,133,252,2176 
09 710 DATA 163.153,133,253,150 

, 0 , 177 , 250 ,145,174, 230 , 250 , 2 

09,2,230,291,2765 
fiF 720 DATA 230 ,174, 209 , 2 , 230 , 1 

75,169.250, 197.252,209,234,1 

65,551, 137,553, 3161 

55 730 DATA 206,229,159,153,133 
, 167 , 169 , 153 , 133 , 188 , 169 , 4, 1 
33, 163,153,0,23B3 

86 740 DATA 133,185,160,0,185,1 

IS, 133, 240, 5,35, SIB. 555,200, 

209,245,32,2359 
3F 750 DATA 207,555,240^51,201 

,49 , 240 , 4 , 201 , 56 , 48 , 230 , 41 , 1 

5,133, 196,2397 
CE 760 DATA 75 , 234 , 245, 147 , 17 p 1 

7 , 7 3 , 78 , 60 , 65 , 94 , 32 , 56 , 69 , 86 

,73,1464 

06 770 DATA 57,59,32,76,95,77,9 
6 , 6 9 , 92 , 1 3 , 1 7 , 87 , 55 , 83 , 5 1 , 43 
,990 

EA 7S0 DATA 35 , 47 p 35 . £B . 73 , 93 . 7 
5 , 6 1 , 32 < 56 , 3 2 , 7 9 , B2 , 32 , 57 , 56 
,999 

ED 790 DATA 45 , 32 , 0 , 34 , 59 , 38 , B4 
,0,0,0,0,0,0,0,0,0, 402 

F3 600 DATA 0,0,0,255,255,255,2 
55,0,0,0,0,0,0,0,0,0, 1020 
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Disk Cat 



Keep track of all your files with this simple but essential cataloguing system 




his double program consists of 
Disk Cat, which creates a file and 
File Editor, which allows you to 
make any changes to it 

With Disk Cat you can create a 
sequential file on disk containing a 
program title and a disk number, 
such as PACMAN 27A, You will be 
able to print out an alphabetical 
double-column master list or small 
notebook size pages to cut out and 
keep in a ring file. 

You will see from your list that 
PACMAN is on disk number 27, 
side A. If you do not double your 
disks then the A or B need not be 
included in the disk number. 

Before using Disk Cat, I use a 
directory logging program to make a 
printout of all my program titles and 
allocate a number to each disk. 

When running Disk Cat you will 
be asked to wait while the sort 
routine is poked into memory. 
When prompted, press the space bar 
and you will be presented with a 
menu. 

If you are creating a new file 
select option A, The screen will clear 



and an instruction box will appear at 
the top of the display. This tells you 
how to close a file - the only pro- 
gram title you can't use is 'END*, on 
disk number £ 0\ 

Now enter the title ( 1 6 characters 
maximum), press return and enter 
the disk number (four characters 
maximum). When you have entered 
all the titles and disk numbers, 
simply type END, press the return 
key, type 0 for the disk number, 
press return again and the file will be 
properly closed, 

Selecting option B will allow you 
to extend an existing file. The drive 
will run for a few seconds as it places 
the read/ write head at the end of the 
file< Then proceed as in option A. 

Option C will read your file into 
memory and automatically sort it 
into alphabetical order and then you 
will be presented with a new menu. 

When you choose option D the 
screen will clear and you'll be asked 
to enter the date. You should have 
your printer switched on at this 
stage. The date should be entered in 
the form DD/MM/YY. Press return 



PROtjRm: DISK CAT 



3C IS FOKEGHS.a 

DF £0 PRlNT aa :CLRl ,J : PQKE53£E0 h 15 
i FDKE53EBlpll: PRINTTAB< 11 } T 
RUSON.Ce .CA , 5*17^53" 

3D 30 PRIMTTABC11) KI CRUS0N I S- I SP 
□ 17,5-11" 

EC 40 PRINTTABCll^tRUSDN.S-pSP 
C4HDISK CATC 5FCS , 5~1 " 

Al 50 PRINTTftBClir N :RUSON,S-,SP 
C17.S-3" 

EE 50 FHINTTABtll> w [RUSDN,S-,SF 

C73 E YC 3FCB „ 5- 3 " 
F5 70 PRINTTflBClli"IIRySON,S- 1 SP 

C17 1 3-3" 

DA 80 FRINTTflBUl VC RUSON . S- , .5? 

C31JDHM HVDECgFC^S-a"' 
43 30 PRINTTflBCllVTRUS0N.5-.SP 

G17 P S«: ,J 

EB 100 PRINTTABClir h CRUSDN s C2 s S 
*17 S CX3" 



06 110 RR-13:C-G:GOSLJB1B90:GOSU 
SE90 

B5 ie@ DinXSC1000) :LS-"CRUSDN a C 

a, 3*e, csd": ci- ? TRusoN p sa:nis 

K CATCSBJ " ; BS-'TRUSDN p CZ p S-B 

,CX3" 3 CRS-CHES 
97 13G SFS-'T5FC392 PI 
FE 1*0 NAS- "TITLE"; DNS- "DISK*" s 

MLE-"riASTER LIST" : DCS- "DISK 

CAT " 

*i£ 150 Z-flirORJ-4aiSETD433E l 4: 
41 1E0 READA ; PQKEJ , fl : 2— Z+- A : NEXT 

B4 170 1FZO£SB4ETH£NPRINT"ERRO 

R IN DATA! pp ; END 
3D 1 00 PQKE4 924 8,0: PDKEB43 , 1 0 : H 

R-13 r C-0 s GDSUB1090 ; NN-7: G05LI 

B1900 

39 190 RR-16-OB;GOSUEie90 

5D &00 PRINT"CRUSDN a Cft 1 S*Bl a CS3 

M 

31 £10 PRINTTftBtS)"IIRySON J S-,SP 



and in a few moments you will have 
a double column, alphabetical mas- 
ter list of all your program titles and 
disk numbers. Disk Cat has been 
tested on the MPS 801,803 and 
MPS 1000. 

Option E will display a sub- 
menu, select P for printer or S for 
screen. You will then be asked to 
enter a category. If you enter Q 
every title beginning with C will be 
listed either to the screen or the 
printer. If you enter two letters, eg. 
CL, then only the titles beginning 
wth CL will be listed. 

If you originally selected P the 
output will be sent to the printer and 
this will give you a 125x90mm page 
which can be cut out and put into a 
small ring file* 

If you make a mistake entering a 
title or disk number don't panic, you 
can use File Editor to make any 
corrections s changes or deletions. It 
will then scratch the old file from 
disk and replace it with the update. 
File Editor has on-screen instruc- 
tions and you should find it simple 
to follow. 



SB 2£0 PfilNTTflBCBV'CRUSDl^S-IlHI 
T SPACE TO CONTINUES-] 1 ' 

B5 230 PRINTTRBCBr'CRUSO^S-^F 
C21 S — 3 w 

63 S40 1 PR I NlTABt 0> " E HUSON ,C2 , 5* 

E ~ C X ^ " 
F5 BS0 BETAS; 

21 SEO GQTQ720 

EE £70 □PENl5 p B 1 15:0PENE,H i a i 

:DC TITLE, SjW" 
EE EB0 G0TP31O 

97 E30 DPENIS^, 1530PEW2 l H B E a "0 

:DC TITLE > A" 

300 RR-ll]GGSUBie90 
5^ 310 EQSUBBS0:PRINTTflBCl3D Pi CB 

6A 320 PRINrTftBCl3)"CRUBC}N 5 S-lE 

NTER TITLECS-H" 
BU 330 PRINTTABCISV'CRUSON.CS.S 

*1 1 s CX s RUSQFF3 "SPC C SB 3 : I NPLiT 

PNB 



¥0UK COMMODORE SERIOUS USERS GUIDE 
44 



LISTING 



► 



31 340 S-L.ENCPNS3 : IF5>1BTHENRR- 

11 : NN-5: GDSUB19O0 ! GPTD1770 
DB RR = 11 :NN-5: E0SUB19tfG 

FF 3E0 PRlNTTABOrTRUSBN.CApS* 
17 " 

SD 370 PR I NTTAE CS 3 " C RUSON , D EN 
TER DISK NUnEERLS-H " 

02 3B0 PHINTTflBCB3"CRySON 1 CZ 1 S» 
17 T CX P RUSDFF3 H SPCi:S6D : INPUTM 
31 

33 330 5S-LENCM3i3 E IFSS>4THENRR- 
11 : GOSUB1300: GOTD1G10 

84 4013 IFPNS-"E>J[r , ANDNS«"0"THEN 
EDTCJ440 

AB 410 PRINTS FN£; CHS, N£ 

S3 420 GOSUEEBCT: NN- 13 : RR" 1 1 : GOS 

AC 430 IFPNSO "END ,J THEN310 
33 440 CLD5E2: CLDSE15tEDTD74a 
7A 450 RR-10:C-0:GOSUB1890: PRIN 
TTflBClB^'THUSDN^ftpS'lSjCSD w 

spccsbS 

al 4g0 print "c ruson, spreading 

FiLEQS-rrspccss:) 

D4 470 PRINT"CRIJSDN S CZ 1 S*12 I CX1 

DD 430 DPEN15 s B a IS : OPENc! , B > E > "0 

:DC TITLE h S , R" 
P£ 430 BD5UBB50: I-Oj X = 0 
C3 500 INPUTttEpPN^NS 
AS 5113 NU3>''0000"+N3 : A-LENCNUSI) 

■ I F A > «4 T H E N A- 4 : NS-RI GHT5 £ NUI 

.A) 

30 5£E RS-ST : GD5UB650 

DP 530 TS-'TSPCEBJ" 

BE 540 □-LENtFNS): I FQ< -17THEN0- 

31-LENCPNE3 
0B 55E T S- LEF TS ( TS „ □ } 
04 5G0 I-I+l: X-X+l ;XSCn-PMS+TS 

+NS 

3S 570 IFRS-0THENS00 

8F 5B0 I FR5< > 54THENPR I NT "STATUS 

EE 590 CLOSES; CLQSE15 

A A B00 RR=i0: C=0: GOSUBlB90f NN-5 

^gosubisso 
sc £10 p r i nt ta bc133"crub dn a ca , s 

*12 p CS3 ,, SPCCeB) 

EA GE0 PR INT'TRUBDNpB-D BURT I NG 

FELECS-2 ,? SPC<e6D 

25 630 PRINT"CSUS0N,CZ,S*1E 1 CXD 
pp 

BA 640 GQSIJB1490:GOSUElS00iGOTO 
B7ti 

FE EB0 INPUT4I1S, EM^EllSpETpES 

b i ee 0 i f en> ethenpr l nt en , En s , e t 

a ES : STOP 
EE 670 RETURN 

FC 680 PRINTCHRSC147 5TABC1S3LS: 
PR I NTTAB C 1 5 5 CI r PR I NTT ABC 15 )B 
$ 

45 ES0 PR INT": RUSON a CA , 5*EE ^ CB 3 

BA 700 FRINTTABtG^CRUSGNpS-^IN 

ITIALI5IN6, * * PLEASE WAITCS-D 

hi 

45 710 PRINTTABCSr'CRUSQE^C^S* 

EE p CXI": RETURN 
OF 7E0 PH1NTCHRSC1473TAB<S5)LSB: 

FRINTTABtlS>CS; FRINTTABC 15DB 

S: RR-0 ■ C-B r GD3UB1B30 
ES 730 GOT 0750 

44 740 RH«5,:C-0lGD5UB1B90:NN-1B 

: ED5UB1310 
CE 750 PR I NTTAB C 3 3 " EL RU5DN a CA s S* 



50pC5D* 

05 7G0 PRINTTflBCB^CRUSON.S-DA) 

CREATE A NEW FILE US- IT 
BD 770 PHINTTABCB^"CRUBDN,B- I SP 
C30pS-D M 

AB 780 FRLNTTABC3!> ? TRU5DN>5-DB3 

ADD TO A FILECSPC4 1 S-3 ff 
ES 730 PRINTTABCBU'TRUSBN^S-.SP 
CB0pS-D" 

A£ S00 PRlNTTABCB^'TRUBDNjB-DC^ 

READ A FILECSPCS,S-3" 
05 910 FRINTTABC95'T RUSON ^2,3* 
B0.CX] J? 

S4 980 GET AS : I F AS- w " THEN620 
£B 030 IFAE- ?, A"THENGD3UB330lGQT 
GE70 

SD B40 1FAS- J7 B ,7 THENNN-1BjHH«5]6 

OSUBL300 ; RR-5 r GOSUB1B90 : GOSU 

B 100B t EDTDE30 
C£ 8S0 I FAE- h 'C"TNENRR-5 ; NN-1G; G 

OEU31300:GOTO450 
G4 9S0 I FAS< > M A M GRA$< > M B M GRfl£ <> 

n C "THEN B^0 
EB B70 RR-10:GaSUBlB90:PRlNTTAB 

C B 3 ■ " C RUSQN , CA , S*£7 , CSD " 
BB BB0 PRINTTflBCB3"CRUSDN s S-3D> 
PRINT h ASTER FILECSPC7.S-: ,h 

4C 830 PRINTTPiBCGr N CRLiS0NpS-p5P 

CS7 s " 

33 300 PRI NTT AB( &~) " L RUSDIM ( S-3E 5 

PRINT ALAFKABETICAL PABEtS- 
1" 

7B 310 PRINTTABCS)"[RUS0N 1 S- 1 SP 
C£7,S-3" 

30 3B0 FR If4TTABt G J "CR^EDN, S-DZ5 

QUIT PROGRArtflECSPCia.S-:" 
B4 S30 PR I NTT AB C B ^) " C R^SON n U2. ^S* 

IB 340 BETAS: IFM-""TH£N940 

SI 950 IFAS- H D"6QTai060 

El 9G0 IFAB- M E M GOTO11B0 

C0 970 I FAS" 13 Z n THENCLH : END 

12 see iFAS<>"n ?, GRAS<>"£"GRA5<> 

"F"THEN340 
3B 990 PRINTCHRiC147^Tl 5 iBC55)L$; 
PR I NTT ABC 15 >CS s PR I NTTABC IS > B 

s 

00 1000 PRlMTTABCSi"CRyBBN p CA l S 
+ E7.CS: J? 

EE 1010 PRINTTABCG> rt CRUSON^5-3T 
0 RETURN TD MENU ENTER END US 
-J 1 " 

BE 10B0 PRI NTT AB C B~) ir i RUSON , 5- a S 

PC27 a S-]" 
CB 1030 PRINTTA9CB^"CRUSDN a S-: 

PRESS RETURN AND ENTER 0 CS 

Fl 1040 FRINTTABCS3"CRU5DN h CZ a S 

*37 P CX3" 
30 1050 RETURN 

EC 10E0 Cl0SEP:0PEN& 1 4:LO55;NN 

-13: RR-10:GOSUB1300 
IB 1070 PR I NTTABf 14 3 "L RUSDN t CA ( 

S*10 S CSD H 
E4 10B0 PRINTTABC14> H [RU50N 1 5-J 

ENTER DATECS-3" 
5C 1030 PR I NTT ABC 14 ] n : RUSON.CZ, 

3*10^X3": INPUTDAI 
30 1100 GQSUB1900;PRINTTAB<;i3) w 

CRUS0pM s CA s 5*13^31" 

34 1110 FRINTTABC133"ERUEQN a S-] 
PRINTING FILECS-3 H 

IB lies PHINTTABC13VTHU5BN.cz, 
S«13 J CX] J ':GOSUB1440 



BF H30 U-INTCCX+D/S) 

30 1140 FORJ-lTDUtX-J:X-y+J 

CE 11E0 PRINTS l?l3 TABC7)XSCJ3 ;T 

ABCS^ ; LC-LC+1 
33 HBfl IFLC-55THENFDHZ-1TG3: PR 

INf«B l E*K*C 10 5 ; NEXT; GD5UB144 

0 

77 1170 NEXT J i CLOSES: GOSUB1300 s 
BDTDB70 

56 1160 NN*e;SOSUB1900;PRINTTAB 
C&i"Z RVSGN , C A , 3*30 p CS3 " 

SB 1130 PRINTTABtB]":RUS0N + 3-DP 

> OUTPUT TO PRINTERCS-H 11 

37 1300 PR I NTTABC Bl 13 L RUSON ^ 5- 7 3 

PCe0 1 S-3 ,, 
4B 1E10 PRINTTABCB) H C RUSON p 5-]5 

) OUTPUT TO SCREEN CS-3" 
B3 1250 PRTNTTABCG) w CRUSON l S- i S 

D4 1330 FRINTTAEC8} 'THU3DN a S~HX 

> RETURN XD PlENUt SPC3 a S-3 " 
DF 1340 PRINTTAECB3 a TRU3DN, CZ, S 

*e0,cx: pp 

SF 1250 GET AS ; I FAS= " "THEN1250 

CA 1£60 IFAS- U P"THENGOTO1300 

57 1E70 IFAS-"S"THENGDTaiBE0 
E5 IFAS-"X"THENG0T08BB 

00 1BB0 IFASO"P"0RPi5<>"5"GRAS< 

> w X ta THENl£50 
CB 1300 RR-10:NN-7; GOSU813S0: PR 

I NTTfiB C 8 5 hK C RUSON , CA , S*E8 , C53 

u 

78 1310 PRI NTT A B C E D " C RUSQN ,5-]E 
NTER CATAGDRY TO PRINT : A-ZC 

FG 1320 PR INTTAB C B ) "C RUSON ^2,5 

•SBpCX] » 
DG 1330 INPUTCAS 

2G 1340 CL0SE3 -. 0PEN3 , 4 i LC-0 : GOS 

UB1470 
BC 1350 FDRJ-1TDI 
F4 1360 IFCR16-LEFHCXSCJ), DTME 

NPRINT*t3 1 ,aH TABC3>X£CJ^TABC4 

)CHRSC104 5 ; LC-LC+1 
0C 1370 IFLC-EETHENGDBUB14&8 
35 1360 NEXTJ 

AA 1330 F0RZ=LCTQE6 : PR I NTtt3 a " 

AB< 3E )CKRS C 104 D ; NEXTZ 
CE 1400 FORT" 1TD3E : PR INT#3 p CHRS 

C1SBD ; ; NEXTT 
9C 1410 PRINTtt3 E CLO5E3iBO5UB130 

0:GOTQ670 
0E 1420 FD33Z-LCTDEB:PHINTtt3 p ""T 

ABC3S)CHRSC 1043 ; NEXT 
EE 1430 F0RT-lTD3^:PRINTtt3pCHR£ 

C 19B > i ; NEXT : PR I NT*3 a CHHS C 10 > 

: GDSUE1470: RETURN 
FD 1440 PRINTttS: PRINTM2 , ""TABCB 

-} CHRS( 14 >DC£ ■ JAB C 3^ MLS ; TAB C 3 

)DAffi; PRtNTttS 
SI 1450 PRI NTfrE a " M TAB C 4 i N AS ^ TAB 

C 4 >DNS 5 TAB C 3 ) NAS a TAB< 4 >DNS j C 

HRSC15D :PRINT#e;LC-0 
37 14G0 RETURN 

4C 1470 PRINTtt3 a CHRSC14iTABC2iN 
AS;TABC3>DN5 ; CHRSC IS JTABC53 3 
CHR£C104i; PRJNT#3 

5A 1480 LC-0: RETURN 

80 1430 N2-INTCI/ESG: :N1-1-2SG* 
NE 

El 1500 POKE4S366 p Ni;F0KE49367 T 
N5 

AA 1510 SYS43153 : RETURN 

7E 15E0 RR=5: NN=LB: BDSUBiB00:PH 
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INTTABC 1G5> w [ RUSON h CA p 5 + 2B , E 
S3" 

43 1530 PRINTTABC5D"CfiUS0lM J S-:E 
NTER CATEGORY TO PRINT e A-ZC 

s-: 13 

7D 1540 PRINTTABC5^"CRU5DN 5 C2 S S 

-EB.CX.DOWNIT 
B9 1550 INFUTCAE 

1A 15B0 RR-5:GQSUB1300; LC«0lL-L 

ENtCAE} : Z-ASCCLEFTStCAS, 1J) 
IF 1570 FQRJ-1TDI 

97 15B0 JFGAi" LEFTS £ XS< J ),L)THE 
NFR INTTABC B^XSCJ} ■ LC-LOl 

EB 1590 iFASCCLEFTSCXSt J), 1 
THENJ-I 

EB 1G00 IFLC" 1HTHENGD5UB1710 
1C 161@ NEXTJ 

Sfl 1G20 PRINTTABC47rTRU5DN,CA J 

75 1B30 PR INTTABC 7 V K CRU5DN a 5-3P 

RE55 RETURN TO CONT I NUEC S- 3 " 
GA 1640 PRINTTABC71"CRyS0N T S- l S 

FCS30R X FDR nENUC SFCG , B^l " t 

PDKE19B,0 
9B 1G50 FRINTTABmTRU5DN,CZ p S 

*24, CXIT' lPDKE138,0 
10 1GG0 OETAS; IFfiS-" 1 "TKEN1B60 
E5 1B70 I F AS " " X " THENR R "9 ; GO 6 U E 1 

A5 1GB0 IFAS-CHRStl3)THEN15EB 
59- 1B9E IFflS<>CMHSC13)QR(=*S<>CHH 

Si C BB 3 THEN1G60 
A3 1700 GQTQ1520 

7A 1710 PR I NTTAB C 47 ) " L RUSON „ C A , 

5*24, CS3* 
2F 1720 PRINTTAEC7J"CfiUSaN p S-]P 



RESB RETURN TD CDNT I NUEC S-3 w 
2B 1730 PRlNTTABC7) w CRgS0N,CZ i 5 

*24 a CXJ 15 
BF 1740 GETAS: I FA*- H "THEN1740 
33 1750 IFMOCHRSC133THEN1740 
FC 1760 GOSUB1900iLC-0: RETURN 
F4 1770 FN3i-" , ';PRI«TTABar , :RUS 

□N,CA,S*35,CS] H 
45 1780 PRINTTABC1VC RUSDN ,S-]T 

ITLE MUST BE 1G CHARACTERS 0 

R LESStS-]" 
0F 1790 PR1NTTABC1>'- , CRUSCM,C2,S 

•35 p CX 1 n : BDSUB1B50 : NN-1 1 
El 1800 GOSUB1900j6OTQ310 
65 1810 N$»" J, : PRINTTABU) H i:HUSa 

IM i CA 1 S*36 j CSD n 
70 1820 PRINTTAB<l> ,a [RUS0N,S-3D 

L5K N0 IIUST BE 4 CHARACTERS 

□R LESSES-}" 
CB 1B30 PRlNTlAGCi:i"tRUSON s CZ,S 

•36, CX3 H ; GO5LIB1B50 : NN-11 
SE 1B40 GOSUB1B00:GQTO3G0 
1C 1950 FDRA 3S 54272TD5423B : FDKEA 

p 0;NEXTfl 

51 1BB0 PDKE54E7E > 4:PQKES4S73 1 l t 

6 i P0KE54£77 , 0 : FDKE5427B „ 343 : 

POKE 5 4 29 G , 1G 
F3 1670 FOR2-1TQ10: PDKE5437B P 17 

; PQKE54S7G p 1G : FORU- 1TD2Q0 : NE 

XTUsWEXTZ 
CC 1990 POKE54SS6p0= RETURN 
DA 1630 R*RR ■ POKE 781 , RiFDKE7B2, 

C z FDKE7B3 h 0 l 5V5B55E0 e RETURN 
F3 1900 C-0;GQSUB1B30 
57 1310 FQKP-1TQNN;PEINT£PS:NEX 

T 



"7 13£0 C=0;GOSL}B1090: RETURN 
F7 1630 DATA173,214 P 13£,20e,e p l 

73,215, 192,208, 1 ,3E P 165,47,2 

4, 105, 10, 133,34, 165 
FB 1340 D A T A 4 B , 105,0, 1 33 t 35,7B a 

1G3, 19£, lB0 e 0,L7?,34, 7£, 177, 

36 , 145 , 34 , 104 , 145 , 36 
33 1350 UA7fi200, 132,3,209,241 p 7 

6, 116 1 192, 159,0, 141 >21B, 192, 

1GB p 177,34,240,59 
30 1360 DATA241 p £13 p 132, 177, 39, 

540,219,235, 213, 132, 175,8, 14 

ip£i3, 132,169,1,141 
3D 1970 DATABlBp 1BE 3 E00 S 177 P 34 P 

133 p £51, 177 a 3G, 133 , £53, 200 , 1 

77, 34, 133,252, 177,36 
03 I9G0 DATA133, 254, 190,0,177,2 

S3, £09,251, 144, 180,209, 11 ,20 

0,208,213, 192, EBB 
AO 1890 BATA242, 173, £18, 132, 206 

a 1B7, 1GS, 39 ,£4,105 ,3, 133,36, 

lG5p37 p 105,0, 133, 37 
£1 £000 DAXAl73p£lB, 132,208, 3 P £ 

0G , 217, 192,206, SIS, 132, 173, B 

16 1 19E 1 E0B I 1SB I 173 
SC E010 DRTft217, 192, E0B p 153 p IBS 

n 34, 24, 109,3,133,34, 165,35,1 

05,0, 133,35, 173,214 
66 £020 □ATA192,S0B,3,206,219 P 1 

32,206,214, 192, 173, 214 p 192,2 

0B,B,173 s 2l5p 13£,206 
IE 2030 DATA1 ,66, 173,214, 18£, 14 

1,516. 192, 173,215,192,141,21 

7, 132, lB5,34p24, 105 
02 2040 DflTflS, 133,39, 1B5.3S, 109 

, 0,133p37p7S,47, 132 
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C3 10 PR INT " C CLft] " : POKE53290 , 1 5 

: PDKE53281 S 11 
3E IS RR-E:C-13:GOSUB7000: PRINT 

"t ca , RU90N , ca , s*i i P cb: " 

BC 20 PRINTTABC13} "CRUBON, B-DFI 

L£ EOITORCS-:" 
14 E5 FRINTTABtl3)"LHUS0N, 5-.5F 

Cll,5»D n 

32 30 PRINTTABtl33"CRUSQN a S- a 3F 

c4:by:spcs, s-i" 

45 35 ?3IN7TAEC13r ? L"RUSQN, 5- , 5P 

cii,s-a w 

A A 40 PR I NTT ABC 13 > w CRUSON, S-] J 

DHN HVDE CS-]" 
4B 45 PI? I NTTAE C 1 3 ? " t RUSQN , CZ a 9* 

llpCX]" 

3D 50 REn : : ; s ; i i 2 i i I I I i l J : : : ■ j f i 

42 100 CR3»CHR*C13>sSF5- n [:9PC33 

1 w 

7D 110 LS-^CRUSGN^A.^*!! t CS]": 
TS- M CR^SdNpS":FILE EDIT0RC5- 

2 » - BS- M CRUSGIM , CZ , S*l 1 , CX ] " 
32 120 DlriPR3C 1000 3 , DNS£ 1000) 
10 180 □□SU64000j6QSUB300:RR-10 

f C-l 3 : BD5UB7000 : PR I NT 13 C RUSGN 
h CA ? 5*12,C93* 

1G1 PR INTTABC 133 "CRySON, S-DR 

erbing file: s-a * 

73 166 PRINTTAB(13> ,3 C:RUSON J C2 t S 

GE 200 3 CLOSE 15 ■ 0PEN19 ,8, 15: DFEN 
2, B, 2 P '"0: DC TITLE, S a R U! 



35 210 GOSUB1000: 1-0 
1A EE0 INPUTttE, PNS, N5 
9C 230 RS-ST:GOSUH1000 
7F 240 I-I+l: FHECn-FNSiEINSCn- 
NS 

6D 250 1FRS-OTHENS20 
3A £60 IFRS<>B4THENPl?rNT l| -STATUS 
-"iRS 

E4 E70 CLDSEErCL0S£lS:HR-3:NN*5 

i GQSUBaOBOs GOTDE00O 
71 300 FRINTCHHSC147D :RR-lsOl3 

:BO5UB7000; PRIMTLS 
5fl 310 PRlNTTPBC13iTS 
62 320 PHINTT(=IBCI3)B5 : RETURN 
81 500 RR"8;C"4;eOSUB7000- PRINT 

"C RU5DN , C A , 5*3© „ C33 " 
8A 501 PRINTTABC4) H CRUSaN,S-:EN 

TER TITLE YOU WISH TO CHANGE 

LS-l" 

48 50£ PRINTTABC4)"II HUSON.CZ , 5* 

30, CXD" : CAS-" J? 
BA S10 INPUT , - , CD0WN3 ,, J CA« 
A9 515 IFCA5-""THENRR-7:GG5UB30 

@@:GDTD2000 
83 530 FDRJ-1TDI 

C0 540 I FFR3SC J >-CA$THENRR™6 ? NN- 
5 : GU5U39000 : RR-5 i GD5UB7000; G 

OTDB000 
F4 550 NEXT J 

SC 660 IFCflSoPRSt J5THENRR-IE : C 
: GDSU37000:PHINT"CHUSDN 1 C 

A S*15 CS] " 
74 562 FR tNTTABC 11 ? 'TRMBON , S-HT 

ITLE NOT FOUNOtS-D" 
50 565 PR INTT ASCII VTRU5DN , P S 



*15,CX1" 

E7 570 FDRCO-1TD1E0OjNEXTCQ:RR- 

5 , 5 t GD5UB3000; GOTD2000 
B0 5B0 F0RA-1TD3B: PR INTTABC 1)CH 

RSC192^ ; : NEXTA 
62 G00 RR-S:C-E: GDSUB7000: PRINT 

j? :RUS0N s CA,S*35, C5]" 
8E 601 PRINTTABi:2^ ,h [RUSDN K 5-:UP 
ARROW RETAINS TITLE OR DISK 
N0, CS-3" 
39 602 PRINTTABC2^ ? 'CRUSQN,S~ J SP 

C35 p S-] " 

BE B10 I PRINTTAB<2> H :RUSON,S-]BA 
CK ARROW DELETES TITLE & DIS 
K N0.tS-: ,p 

4B Bll PRINTTABCSVCRUSDN^-.SP 
CSSpS-]' 1 

BB B1E PRINTTABC£VTRUSDN,5-,SP 
C103 RETURN TD ABORTC SPC10 , 5- 
1" 

82 G13 PRINTTABC2> H :RU90N P C2 P S* 

35.CX3 p> 
44 B15 HEnPNS-" w ;NS- tlpl 
GF 620 PN£- lha MNPUT J? COOtiJN^ M ; PNI 

-5-LEN(PN$); I FS> 1STHENGDTD50 

00 

FD G2S IFPNS-CKRSC94 3THENPNS-PR 
SC lPRSC J?-PRS( J) 

D3 BBS IFPNS- ,IH TKENPR5C J^-PRSC J 
3 :DNECJ ?-BN£<: J>: J- 1*1 : RR-S:N 
N-IBi GO5UB3000 ; GOTO2000 

3F 930 IFPNS- H _ H THENFR5CJ)« PMi :D 
pl ; NN** 1 0 : GDSUB9000 1 BDT 

□2000 

EG G35 RR-1S:NN-G:GCSUB9000 
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B7 B40 RR-1E: PR I NTTAB C 9 V [ RU30N 

,CA P 5*J.7 P CSJ" 
3D 641 PRlNTTABCBiT'CRUSOP^S-aEN 

TER DISK NUMBER CS-l n 
E4 642 PRrNTTflBCa3"CRUSON P CZ J S* 

17 , CXI" 

05 550 NS- PiPl s IMPUTNS:SS-LENCNSD 

; IF53>4THENGOTD50 t 0 
33 B51 IFN£ fc CKR5C94:>THENN5-DNSC 

J^DNSCJU-DNSCJ) 
53 556 IFN$-* H THENPR£CJ)-PR3CJ; 
: Umt J J -DNS C J 3 : J- 1 +1 : RR-5 : NN 
-IE : GB5LJB9000 : GOTO2000 
43 EE0 PRiEC JJ-PNSrDNSCJU-NS: J-I 
+1;RR-5:NN-1B: GQSUB9000 : GDTC 
2000 

SF 1000 REflr :::: : CHECK ERROR CH 

ANN EL : ; : ; : : 
E3 1010 INPUT&15, EN, EM£ P ET P ES 
E4 1020 rFEN>-flTKENFEINTEN p EriS p E 

Tj ES : STOP 
04 1030 RETURN 

B9 2000 RR = Q; C-B:GOSLIB7000; PR IN 

T* C RUSON ,CA P 5*25 p CSV 
84 £010 PRINTTABCG> H CRUSON p S-im 
> CHANGE OR DELETE TITLECS-3 

C7 2011 PRIMTTAB<6>"CRUS0N > S- T S 

PC25 3 S-3" 
SD 2020 PRINTTPiBC6> h :HUS0N 1 S-3B 

) SAME CHANG£5J:SFCl0 a 5-l ra 
95 E0E5 FRINTTABte^CRUSON^S^S 

PC25 s S-3" 
Bl P030 PRINTTABCSr p CR^SON s S-DC 

J QUIT PROGRAMME: 5FCB. S-j " 
73 2031 FRINTTABCGD 'T RU5DN , CZ S 5 

♦es.cx] 13 

BC 2040 GETAS: IFA$- pJpJ TH£N2040 
7C £050 IFM-^A^THENRE-^iNN-lB; 

GO SUB 9000: GGTD500 
BF 20S0 IFA$- M B"THENRR-7 : h|hl-10; 



GDSUB9000:GOTQ3000 
DF 2070 I FAS*- M C "THEN PR I NTCHRS C 1 

47 > jCLR- END 
97 2090 I FA$< > "A "ORA£< > * B "ORAS< 

> n C"THENE040 
4£ 3000 RErt: : : : i i SAUE UPDATED F 

ILE: ; i: : ; 
A3 3005 RR-ll3C-93 6OSUB7OO0:PHI 

NT "£ RU50N , CA p 9* IB p C5IT 1 
IS 3010 PRINTTABO>"CR^SON S S-3S 

AUING UPDATED FILEIS-H" 
50 3013 PR I NTT AB t B 3 " C RUSDIM 3 CZ 3 5 

*ia, ex:" 

77 3015 QPENlSpB, IS, "SB: DC TITL 
E" 

E7 3050 OFENE^E, ,p 0rDC TITLE, S 
P W M 

m 3030 F0RJ-1TQI : PHJNTft2 s PRSCJ 

> 3 CRS a nNSCJ5 :NEXTJ 
C£ 3040 GOSUB1000: CLDSE2: CLOSE 1 

5 : GOSUB9O00 ; GQTOE000 
41 4000 RR-12:C-7:6DSUB7000ePR1 

NT "CRY90N , CA , S*24 , CS3 * 
C0 4001 PRlNTTABC7> w CRUSaN l 5-1P 

UT FILE DISK INTD DRlUECS-ir 

54 4005 PRINTTflB<7V , CRyS0N 1 S- 1 S 

PCE4 I 5-D" 
79 4010 PRINTTABC7V p CRyS0N,S-3H 

IT ANY KEY TO CONTINUE LS-1 " 

BB 4011 PRINIIABC73"ERUS[]N,CZ h 5 

*E4 p cx] » 

ZB 4 0P0 SETA* : I FAS- w w THEN40S0 
43 4030 RETURN 

04 5000 RR-1B:NN-5:SOSUB9000:PR 
INTTABCEV'LRUS0N a CA 1 S*35 1 C5H 

4B 5001 PRINTTABCEr p CRUSON p S-]T 
ITLE MUST BE IB CHARACTERS 0 
R LESSCS-]" 



FC 5002 P R 1 NT T AB C E > H C RUSOiM , C Z s 3 

*35 3 CX3 n : PN5- " " r GOSUB5020 
Ct 500B BDSUS3000]GOTOG20 
FD 5010 GOSUBB000;PRINTTABC1) H : 

RU5DN P CA ,S*3B a CS] H 
34 5011 PRINTTABCir p CRySON 5 S-30 

ISK NO rtUST BE 4 CHARACTERS 

OR LESSCS-3" 
15 50 IB PRTNTTAEC 1 > "QRUSDN k CZ , 9 

*35 a CX3 " ; m~" hl : GD5UB50E0 
□D 50 L 5 COSUB9000:SOTO640 
£1 5020 F0RA-54£75T054EB5: PDKEA 

,-fesMEXt 

13 5030 P0KE54E72 h 4rPGKE54273 n 4 

B. POKE542?7,0: PQKE54E7B , E43 : 

PGKE5429e T 15 
£B 5040 FDRZ-1TO10: P0KE54E7B. 17 

SPDKE54E7S, IB : FDRU- 1TD150 : NE 

XTV^NEXTZ 
FA 5050 PDKE54E9B .0: RETURN- 
96 6000 RR- 1 7 i C - 3 B - GOBUB7000 : F 0 

ft2-lTDll7EpRINTCHR$C2QD ; : MEX 

T 

E0 6010 RR-15 ;C-0=eQSUB7000- RET 
URN 

BE 5100 RR-5E-C-0:GCSUE7000iFDR 
Z-lTDllBs PRLNTCHR5C20) ; : NEXT 

DB Gil0 RR*19:C-O:GOSUB7000;RET 
URN 

54 7000 R— RR : P0KE7B1 t R ■ P0KE7BE , 
C : PQKE7B3 , 0 t S VSB55E0 : RETURN 
CE 9000 DEF FNCCX)-S0-CLENCT£S5 

BC 9010 TES-PR$<J)+ W PI +DNSCJ) 3 
PRrNTTABCFNCCX3 3 ;TES:GOTD5B0 

D0 3000 C-0:GD5UB7000 
7F 3010 F0RP-1TDNN ; PRINTSPS; NEX 
T 

FB 30E0 C-0:GCSUB7000- RETURN 





LISTING 



Reduce long files and link up your programs to save 

on disk space 



A, 



I 
■g 



fter a game has been written 
there are normally several chunks of 
code which arc spread about in the 
computer's memory. The Program 
Compactor will help to tie these 
routines together and then crunch 
them down into a neat little file. 

The program will not work on 
Basic programs but it will happily 
attack anything lying from $0300 to 
SFFFF. Any number of files can be 
linked as krag as the total area 
covered does not exceed 234 disk 
blocks. 

When the program runs, it fills 
up the program memory with zero 
bytes to help the cruncher to do its 
work. When finished a prompt ap- 
pears asking for LO-MEM to be 
input, The lowest memory location 
occupied by any pan of the program 
code is entered in hex, as are all 
inputs in the program. 

A SKIP value is the next request 
which means that the cruncher will 
ignore the 768 bytes following the 
input value. This is useful in skirting 
around screen areas. For example, if 
code starts at $0300 and another 
piece of code starts at $0800, the 
screen area can be omitted by enter- 
ing $0400 at the SKJP prompt. 

The next job is to load the first 
file into the computer. At the FILE- 
NAME prompt, entering will 
display the disk directory. When the 
program name is known, it can then 
be entered (without quotes) at the 
name prompt, 

When the program has loaded, 
the rest of the files can be loaded 
until everything is in memory. Now 




it's crunch time and entering 1* 
instead of a filename will set the 
process into motion. 

A screen printout of memory 
space used and the current disk 
block rating is given while the bor- 
der flashes to indicate that the 
crunch is proceeding. After the 
cruncher comes the opti miser which 
further compresses the data. 

On completion, the program 



prints the new memory usage and 
block count details before asking for 
the hex boot location for the coded 
program* Next a filename for the 
saved program is needed and this is 
the last point at which disks can be 
changed. Enter the new filename, 
press return and the job's complete. 

Another copy can now be saved 
with a new filename, if necessary, or 
pressing the return key without en- 
tering anything will reset the pro- 
gram ready for a new compacting 
session. 

If anything goes wrong at any 
point the program can be restarted 
by pressing RESTORE. This will 
reset all the program parameters and 
take the program back to the open- 
ing screen. 

In tests a 232 block program was 
reduced to 131 blocks - a saving of 
101 blocks which corresponds to 
25687 bytes! As you can see the 
compactor really does save on disk 
space* 



FRDGRAI1 ; CDNPAETDK .BAS 



CI 10 REfl TYPE IN THE FROeRAn A 
m 5AUE IT nu A SPARE C ASSET 
TE OR DISK 

30 EO If EH PREPARE A DIFFERENT D 
ISK OR CASSETTE FOR SAUIN6 T 
HE FRDERAH 

9D 30 REH THE FROERAn SfiUEB AFT 
ER ASKING FDR A OE U ICE NUF1BE 
R . , , SO BEWARE I ! I 

4E HO BL-2Q0 2 LN-50 r3A-3BBB 
4 

3E 50 FDR L-0 ID BL:CX-Q:FDR D- 
0 TO IS: READ A-CX-CX+A 

31 GO P0KE53£GQ 3 A; POKE 5A+L*1B+ 
D, A: NEXT D 



BD 



1C 
AS 



BC 



EF 



35 



EE 



70 READ A: IF AXCX THENPR INT 
"ERROR IN LTNE" ; LN+CL*10.) : ST 
OP 

BO NEXT L]SYS4D0S4 

SO DATA 20,8,195,7,158,50,48 

,55, 52,3^64 + BE , BE s SB , 79 , 45 h 

10BB 

100 DATA SB, SB ,0,0,0, 170, 170 
p 170, 170 , 32 , 60 , EBB p IBS , 14, 14 
1,32, 1476 

110 DATA E0B,141 ,33,Z0B, 1B0 , 
163,55, 133, l p IBB, 5, 189,94,8, 
157,45, 17B5 

ISO DATA 0 1 20£>1E,£47 S 154 s 1G 
0,0, 196, 50,206,65, Bp 177,49,1 
53,0, 1685 

130 DATA 0,230, 1, 141,£4,E1B P 
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IBB, 1,500, 200, 241 p 165,50,501 

p 8 p 509 , 5098 

AD 140 DATA 530, 185 , 100, 9, 153, 0 ; 
,1,500,509,547,75,0, 1,0,3,5, 
1417 

BE ISO DATA 545,84,20,177,47,45 
,42,42, 45,41,7, 170, LBS, EE, 1 , 
141 , 1315 

'99 150 DATA 24,1,177,47,41,31,1 
70,35,34, 1,76,555,1,168,74,1 
75, 1307 

Al 170 DATA 155,95,65,70,48,530 

,1,239,35,500,138, 1,530,47,5 

08,2, 1736 
54 1B0 DATA 230 , 4B , 3E , } 77 , 47 s 32 

,34,1,115,45, 530 , 45 h EOB p 2 p £3 

0,45, 1516 
5A 130 DATA 502 , 508 , 245 , E4Q , 190 

, 169,0,540,539, 163 , 555 , 208 h 5 

35, 177,47, 145,5965 
BB 200 DATA 45,32,34,1,230,45,2 

OB, 5 , 230 , 4B , 505, 508, 540 , E40 p 

154, 32, 1959 
FB 510 DATA 117,1.177,47,35,34, 

i, 145, 45,230 ,45,500,5,530, 46 

,202, 1552 
77 520 DATA 203,545,135,57,16,2 

41,49,139,134,57,177,47,170, 

76,34,1,184B 
3E 230 DATA 35,117,1,177,47,145 

,45,35,34,1,230,45,508,2,530 

, 45, 1332 

58 E40 DATA 505,503,240,133 57 

16, 236 , 76 , O, I , 35, 555, 1 , 169 , 5 

5,133, 1B4E 
4E 550 DATA 1 , BB P 534, 534, 534, 32 

,83, 155,75,49,3,554,0,540,23 

5, 159,5073 
FC 560 DATA 3,44,155,8,133,555, 

177,47, 145,45,200, 195,555,20 

9,247,54,5155 
EB 570 DATA 165,45,101,555,133, 

45, 155,46, 105,0,133,45, 150,0 

,ED5,50B, 1B09 
fiD 580 DATA 559,54,165,47,101,5 

55. 133 p 47, 1B5,46, 105,0, 133,4 

B,7B,0, 1575 
5F 530 DATA 1,195,0,533,153,0,2 

55 , EDO , 509 , 547 , 206 , 52 4 , 1 , E 0 E 

,557,1 ,E353 

94 300 DATA 173,257,1,201,47,20 
5,534,96, 45, 133,527, 141,553, 
154, 165, 26, £277 

SB 310 DATA 157,229,157,134,174 

,55, 152,96, 134, 49,75,75, 170, 

0,49,534, 1975 
7B 320 DATA 159,523,71,254,74,2 

43 r 145, 545, 14,545,00,545,51, 

£43, B7, 541,5511 

95 330 DATA 505,541,537,546,62, 
241 ,47,543, 105,254, 165,244,2 
37, £45, 150, 152,3049 

04 340 DATA 255,154,169,54,133, 

1,169,55,141,54,3,159,3,141, 

5S,3, 1496 
43 350 DATA 159,0,141,35,509,14 

1, 33,509, 160,0,165,95,3,540, 

5,35, 1653 
60 350 DATA 510,555,500,509,545 

,88, 75,0,9, 155, 147,B,14,14B, 

1B5.85,5035 
3A 370 DATA 95,70,67,75,47,204, 

73 p 7S p 75 , 59, 92, 35, 514, 49 ,45 , 

50, 1351 



3D 300 DATA 13,13,87,82,73,84,8 
4,59,70,35,86,09,32,215,95,0 
5, 11B1 

37 330 DATA 55 , 79 , 35 , 195 , 92 , 65 , 
E7 , 75 , 53 , 82 , 45 , 55 , 55 , 13 , 13 , 1 
63, 1157 

EA 400 DATA 35.133,1,09,227,534 

, 95, B3, 32,88,166, 76, 174, 157, 

EE4,0, 1BE5 
93 410 DATA 540,235,169,3,44,10 

9 ? B P 133,555,177,47, 145,45,50 

D, 135, 255, 2321 
7fi 4E0 DATA 20B ,547 , 24 , 1B5, 45, 1 

01,255,133, 45 ,155,45, 105,0. 1 

33,46,160, 167B 
14 430 DATA 0,502,208,229,24,16 

5,47,101,255,133,47,155,45,1 

05,0, 133, 106E 
DC 440 DATA 40 , 76 , 0 , 1 , 185 , 0 , E39 

, 1 53 , 0 , 555 , 500 , 208 , 54 7 , 205 , 5 

54, 1, 5043 
E3 450 DATA 506,527,1,173,227.1 

, 50 1 , 553 , 509 , 534 , 95 , 1 72 , 35 , 7 

7,79,70,5238 
EB 450 DATA 135,1,0,50,20,8,195 

,7,158,50,43.55,55,32,84,85, 

977 

F5 470 DATA BE , 55 . 79 , 45 , 55 , S£ , 1 

63,528,170,96,38,32.68,553,1 

59,14,1590 
5A 490 DATA 141,35,508,141,33,2 

09, 150, 169,55, 133,1 ,162,5, IB 

9,94,8, 1S9B 
CE 490 DATA 157,45,0,505,15,247 

, 154, 160,0, 199,50,205,65,8, 1 

77,49, 1734 
75 500 DATA 153,165,50,230,1.14 

1,24,512, 198, 1,200,509,541, 1 

65,50,501,5547 
IB 510 DATA 5,208, 230, 1B5. 100,8 

, 153,0, 1,500,503, 247, 75,0, I, 

198, 1823 

9C 550 DATA 34,177,47,528,42,96 
,153,41,7,170,189,50,1,141,5 
4,1, 1377 

B5 530 DATA 177,47,41,31,170,35 
, 34,1 ,75, 555,, 1 ,158,74, 175, 15 
5 3 E 14 93 

C3 540 DATA 66,70,48,230,1,239, 
35,208, 190, 1,530,47,508,5,23 
0,49, 1957 

4D 550 DATA 96,177,47,35,34,1,1 

45,45,530,45,508,5,530,46,50 

5,508,1748 
El 560 DATA 545,240,190,169,0,5 

40 , 233 , 153 , 255 , 2DB , 235 , 177 , 4 

7, 145,45,35,2636 
64 570 DATA 34,1,230,45,208,5,5 

30 , 46 , 505 , 209 , 540 , 240 , 154 , 32 

, 117, 1,2000 
C5 590 DATA 177,47,35,34,1,145, 

45,530,45,509,5,530,46,202,2 

08,245, 1897 
71 500 DATA 199,57,16,541,48,13 

9,134,57,177,47,170,76,34,1, 

35, 117, 1544 
1A BOO DATA 1,177,47,145,45,32, 

34, 1 , 530, 45, 509, 2, 230 , 45 , 202 

,509, 1553 
41 510 DATA 540,190,57,16,535,7 

5,0, 1,44,555, 1, 169,55,76, 10, 

9, 1410 

31 550 DATA 157,99,94,150,216,1 
53p55,133pl p 160,0, 132,88, 150! 



, 16, 133, 1733 
f 25 630 DATA 00,155,141,5,8,141, 
5,3, 141,9,9, 145, BB, 200, 509, 2 
51 , 1503 

33 640 DATA 530,89,508,247,159, 

55,133,1,88,155,152,160,15,3 

5, 72,15, 182B 
BP 550 DATA 175,247,145,3,0,140 

,4, 3 , 142,94, B, 140,95,9, 162 , 2 

57, 1805 

4 A 660 DATA 160,15,32,75,15,175 
, 19, 140,8,9, 169,255, 141,7,5, 
155, 1379 

05 £70 DATA 54,105,15,141,537,3 
, 169,35,509,7, 169,0,141,7,9, 
159,1435 

IB 690 DATA 44,141,551,8,35,83 
10,35,2, 14, 152,503, 160, 15, 32 
,55, 1244 

4A 530 DATA 15,169,215,35,510 2 

55,120,159,52,133,1,173,5,3, 

133,80,1779 
3B 700 DATA 173,6,9,133,31,189, 

255, 133,08,133,80, 160,0, 177, 

90, 145, 1951 
4C 710 DATA 98,165,99,200,5,199 

,99,190,99,165,00,209,2, 13B. 

91, 199,2076 
C4 750 DATA 00,165,91,501,15,501 

8,530,230,90,208,5,530,99, 16 

9,55, 133,5504 
79 730 DATA 1 , 89 , 159 , 1 95 , 35 , 210" 

,255,35, 147, 10, 169 , 13, 35, 510 

,555, 155, 19B3 
67 740 DATA 90,141,5,9,141,98 8 

, 56 , 233 , £55 , 14 1 , 90 , 9 , 1 55 , 91 , 

141, 1670 

98 750 DATA 5,9,141,97,0,233,7, 
141,99,8,55, 173, 35, 9, 533, 9B , 
1403 

C3 750 DATA 141,96,8,173,37,0,2 
33, 17,141,97,0,55, 159,0,537, 
96,1577 

33 770 DATA B, 141, 95, 8, 163,0, S3 
7, 97,8, 141 ,37,8,35,2,14, 165, 
1220 

3F 780 DATA 135,150.15,32,72,15 

, 142, 165, 3, 140,163, 3, 160,0, 1 

95,0, 1397 
BE 790 DATA 0 , 153 , Q , 1 6 , 200 , 209 , 

247, ISO, 99, 195, 152. 3, 153, 0, 1 

7, 13B, 1726 
E8 500 DATA 15,547,162.515,160, 

15,32,55,15,35, 107, 14,173, 14 

9, 14,240,1647 
EF BIO DATA £4,159,8,170,160,1, 

32, 186 ,555 , 173 , 149, 14, 165, 15 

0,160,14,1857 
E4 850 DATA 32,199,555,35,154,1 

3,76,41,10,76,234,15, 152, 169 

,160, 15, 1533 
C9 B30 DATA 35,55,15,162,216,16 

0,15,35,55,15,32,107,14,173, 

150,14,1247 
BD 840 DATA 501,36,508,6,35,155 

,14,76,90,10,501,33,508,5,17 

3,9, 1469 
A5 050 DATA 9, 540,224 ,95 , 153 , □, 

170 , 150 , O , 35 , 185 , 255 , 173 , 149 

, 14, 165,5047 
A9 850 DATA 150,150,14,35,189,5 

55,32p£09,12,76p90,10pl50,15 

9,55, 133,1703 
26 870 DATA 1,155,98,133,90,160 
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,0,153,17, 133,91, 132, 112,230 
, 1 , 239 , 1765 
EE 880 DATA 35,203,190,1,155,11 
2 , 240 , 3 , 76 h IDS p 1£ , 177 , 96 a 200 
,£09,66,1317 
7F DATA £40,04,162,1,155,96 

,72, 165,99,72,150,0, 135, 113, 
35 , 161, 1746 
13 300 DATA 11 fc 340,31, 177,89,20 
0 , £09 , 89 ,203,13, 201 , 0 , 240 , 20 

.eoi^ss.aies 

9B 810 DATA £40, 16,500,203,33,2 
40,11,32,40, 12,232,254, 31 p £0 
5,223,76,2085 
4F 320 DATA 170,11,104,133,88,1 
04, 133,08, 160,0, ££4, 1,508, 10 

, i77 3 ee T i7oo 

41 930 DATA 201 ,0,240, 28, £01 l £5 
5,240,24, 138,8, 35, 3£, 13,1a,! 
77,33, 1B30 
C6 840 DATA 35, 13, IS , 35 , 161 , 11 , 
£□£,£□8, £45, 153,33,209, 144,7 
G p £4 p IS, 1634 
5ft 950 DATA 201 , 0 , £40 , 8 , £01 , 255 
; 540 , 5 , 200 , 203 , BB , 20B , 143 , IS 
£,1 ,3£.££00 
9ft 980 Ofttft 151,11,240,11,508,8 
B , BOB , 7 , 232 , 224 , 31 „ 203 , 242 , 2 
40,44, 134 ,££90 
E3 -970 DATA 92 , 201 , 0 , 208 , 5 , 168 , 
160,5,85,608, 13,501,255,208, 
6, 159, 1993 
FE 8B0 DATA 132.5.92,206,9,72,1 
69,££4 I 5,9£ I 3£, 13,15, 104,32, 
13, 1274 

£4 330 DATA 15,155,39,240,3,75, 
154, 10,75,24, 12, 134, 32, 165,0 
, 134, 1383 
BO 1000 DATA 83,72,32,151,11,24 
0,58, 104,508,88, 75,508,55, 15 
5,92,209, 1905 
7A 1010 DATA 5, £30, 93 , 530, 85, IS 
5,83,201,31,205.231, 1B5,8£,£ 
01,555,508,2487 
47 1020 DATA ££5 , 199 , 95 , 155 , 83 , 
8, 158,32, 13, 12, 155,92.32, 13, 
12, 104, 1395 
AF 1030 DATA 32,13,12.155,33,54 
G,1S£,76, 164,10, 150,0,230,89 
,208,2, 1611 
4F 1040 DATA £30,88,85,134,92,1 
34,113,152,0, 134.,93,3£, 151 , 1 
1,240,45. 1758 
72 1050 DATA 177,88,200,209,86, 
205,13,201,0, 240 , 34 , 201 , 255 , 
240,30,200,2394 
D2 1060 DATA 503 , B8 , 540 , £5 , 32 , 4 
0, 12, 155,82,208,2,230, 93, 230 
,92, 1B5, 1923 
OB 1070 DATA 83, £01 , 31 ,£QB . 214 , 
1B5 , 92 , 201 , 255 , 20B , 208 , 188 , 8 
5, 185, 93, 9, £433 
1C 1080 DATA 96, 3£, 13, 12, 1B5,S2 
,32, 13, 12, 104, 133, S3, 104, 133 
,88, 177,1£95 
IB 1090 DATA 33 , 32 , 13 , 1£ , 3£ , 161 
,11 , IBB, 32,208,244, 196, 93, IS 
,£40, 155, 1903 
4A 1100 DATA 88,240,14,76,164,1 
0, 190,0, 145, 90, 230 ,30,209,2, 
£30,81, 1638 
FC 1110 DATA 35,153,0,32,13,12, 
153,55,133, 1,99, 153 ,11, 141,3 
S, £08, 1329 



D2 1120 DATA 96 , 165 , 89 , £01 , £55 , 

508, 1,86, 169,8, 3£,SB, 12, 153, 

3,32, 1594 
6E 1130 DATA 53 , 12 , 9S , 133 , 1 IS , 1 

33, 115,10, 133, 117, ISO, Q p 132, 

114,154. 114, 1507 
BF 1140 DATA 177,88,500,132,114 

, 154, 115, 209 , 99 , 240 , 1 , 95 , 200 

, 135,115, 186, ££G7 
BA 1150 DATA 117 , £08 , £35 , 159 , 25 

9, 133,115,526, 104,95,94, 1GS, 

113,240,3,76, £348 
DB 1160 DATA 229,11,78,233,10,1 

52 , 1 , 160 , 0 , 135 , 114 , 132 ,112,1 

54, 116, 132, 1783 
£F 1170 DATA 115, 1B5, 115, 133, 11 

7,154,114, 177, B8, £00, 132, 114 

, 164, 115,209,99,2211 
FD 1180 DATA £09,12,200,132,115 

, 196, 117,209,235, £35, ££4, 31, 

£08, 227, 133, 154 , 2550 
34 1130 DATA HE, 192, 3, 20B, 2,8, 

64, 35,13, 12 .177 ,59, 13£, 115,3 

2, 13, l£13 
IE 1200 DATA 12,164,115,200,195 

, 118,208,245, 160,0, 139,156, 1 

16,224,3,240,2305 
F8 1210 DATA 9 , 133 , 255, 10, £4 , 10 

1,255, 203 ,3, ££7, 10,95,210,24 
, 101,88, 1753 
9F 1220 DATA 133,99,155,93,105, 

0, 133,99,76, 184, 10,1B£,14£, 1 

50,13,35,1591 
70 1230 DATA 55,15,35,144,255,1 

58, B, 35, 185,555, 152,9,32, 188 
, 255,32, 1B44 
31 1540 DATA 90,13,133,88,32,90 
p 13, 133,88, 173, 7, 8, £40, 11, 16 

5,99, 1375 
46 1250 DATA £05 , B F 9 , 144 , 4 , 233 .. 
16, 133, 53, 24, 155, BB, 105 .15.1 

33, 99, 1495 
BE 1250 DATA 55,155,88,537,3.9. 
133,99, 165,99,237,4,8, 133,68 
,32, 1537 

B6 1270 DATA 90 , 1 3 , 120 , 160 , 5£ , 1 

32, 1, 160,0, 145,89, 160 ,55,132 

,1,230,1539 
4A 1£B0 DATA 33,203,2,230,93,35 

, 144,30,230,32, 115, 13, 155,99 

,509,2, 1730 
FB 1290 DATA 138 , 88 , 189 a BB , 173 , 

8,8, 197,99, 175, 19,208,7, 173, 

5,9,1644 

6A 1300 DATA 137, BB, 175, 10, 155, 

88, 141,5,9, 169,88,141,6,9,15 

3,255.1713 
AS 1310 DATA 141,9,9,99.32,19,2 

35 , 170 , 165 , 144 . 74 , 74 , 175, 2, 1 

38,96, 15B3 
94 1320 DATA 104 , 104 , BB, 32, 115, 

13, 16S, 153, 160, 13,75,55, 15, 1 

53,3,32,1253 
01 1330 DATA 155,255,75,231,255 

, 35 , 35 , 3£ , 195 , 73, 53 , 75, 32 , 13 

7 S 82, 82, 1934 
9A 1340 DATA 73 , 85 , 83 , 3£ , 35 , 35 , 

13,0, £10, 69,65,59, 73, 7B,71 t 2 

£7,1520 

9C 1350 DATA 46,87,56,13,0,152, 
£47, 160, 13, 32,55, 15, 32, 143,5 
46,120, 1447 

OB 1360 DATA 169,97,133,135,35, 
£13, 243 ,155, 195. 35, 15, 537, 1G 



5, 195,32, 195,2271 
F4 1370 DATA 537,158,1,133,88,1 

BB, IB, 133,99, 169, 1 , 32,221,23 

7 169 B 187£ 
94 13B0 DATA 3£, £51 , 237, 120 , 150 

,52, 132, 1, 150,0, 177,85, 150,5 

9, 13£,1 , 172B 
E4 1330 DATA 32 , 221 , £37 , 1B5 , 99 , 

£05, 5, 9, £08, 7, IBS. 99, 208, 6, 8 

,240, 1331 
CE 1400 DATA 9 , 230 , BB , BOB , £22 , 2 

30,99,208, £19,99,35.53,246, 1 

59,13 K 7E,2TBB 
5F 1410 DATA 210 , 259 , £15 , EE , 73 , 

94,73,79,71,46,46, 13,0,195,7 

O, 150, 1533 
D£ 1450 DATA 14,35,55,15,173,5, 

9, 133, 135, 55, 173,8,8,233,15, 
133,1199 

44 1430 DATA 137,155,135,32,205 

, 188, 152,88, 160, 14,32,55, 15 T 

150,1,165,1717 
05 1440 DATA 137 , £40 , IB , 200 , 24 , 

155,135,233,253,133, 136, 165, 

137,233,0, 133, 2341 
F2 1480 DATA 137 , 208 , £36 , 15£ , 17 

O, 169,0, 32, 205, 199, 152,35, 15 

0, 14,75,55,5061 
F5 14B0 DATA 15 , 13 , 20B , 85 , 79 , 71 

, 8£ , 85 , 77 , 32 , 75 , B3 , 7B , 71 , 84 , 

72, 1174 

5D 1470 DATA 5B , 32 , O , 32 , 194 , B8 , 
84,69,83,51 ,0,3£, 194,76.73,5 
7, 1150 

92 1480 DATA 75,93.45,13,13,0,1 

B3,0, 133, 198,35,86, 165, 169,0 

,141,1333 
75 1490 DATA 149, 14, 160 , 0 , 13£, 1 

24,135,0,2,240, 17, £00, 174, 14 

8, 14,554, 1764 
BC 1500 DATA 16, £40 , 3 , 232 , 142, 1 

49, 14, 157,148,14,508,534, 173 

, 148, 14,95, 1335 
00 1510 DATA 49, 49, 50, 51, 52,53 

54, 55,55,57,43,49,50,51 ,5£,5 

3,323 

51 1550 DATA 54,32,68,229,158,8 

, 170 , ISO , 15 , 35 , 186 , £55 , 1E9 , 2 

, 152,53, 1754 
70 1530 DATA 160,15,35,188,555 

32, 192,255, 32,231,255, 159,6, 

180,0, 170, £155 
5D 1540 DATA 32 , IBS , 2G5 , 173 , 149 

, 14, 1S£, 150, ISO , 14, 3£, 199,25 

5, 32, 192,255,2250 
2F 1550 DATA 1 SB , B , 32 , 186 , £55 , 5 

, 32,14,15,95, 127, 133,96, 32,1 

4, 15, 1225 
10 1550 DATA 169,155,88,152,32, 

205 , 189 , 169 , 3£ 3 3£ k 210 , 255 , 32 

, 14, 15,240, 1999 
8E 1570 DATA 5,35,510,255,203,2 

49, 169, 13 , 32, 210, 259, £09 , 213 

,78,24, 15,5171 
AO 1580 DATA 3£, £07, £55, 170, 165 

, 144 , 20B, 2, 138, 96 , 32 , 204 , 255 

, 169,9, 170,2255 
9E 15B0 DATA 32,195,255,35,331, 

£55, 104, 104 , 159 , 45 , 150, £7 ,35 

,210,555, 135,2242 
75 1B00 DATA 208 , £50 , 169 , 13 , 75 , 

210 , 255 , 73 , 46 , 1 34 , BB , 13£ , 99 , 

160,0, 177, 5QB2 
37 1510 DATA 55,240,6,32,210,25 
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41 



be 



oc 



26 



C7 



E6 



S3 



□F 



F2 



43 



7D 



3D 



47 



2F 



F3 



F3 



,81 



22 



74 



71=1 



OH 



5,200,209,245,35,32,55, 15,32 
, 107, 14, 1B3B 

1650 DATA 173,143.14,240,45 
EO 1 p 4 p 209 , 244 3 152 p 1 ( 32 , 101 , I 
5,72,32, 1694 

1B30 DATA 101, 15,17a, 1Q4 P 1GB 
,24,36,32, 116, IS, 229 , ID, 95, 1 
£9, 133, 32, 1529 
1640 DATA 32,115,15,5,92,95, 
IBB, 143, 14,235, 201,53, 144,2, 
233,7, 1595 

1550 DATA 41,15,95,152,174,1 
60, 167,56,96, 197,78,84.09,92 
, 33,210, 1719 

1BB0 DATA 213,305,45, 133, 195 
, 210. SB, 33, 35, 0, L37, 78,04,59 
,92,32, 1731 

1B70 DATA 204,207,215,45,205 
, 137,205,58,32,36,0, 13, 204,7 
3, 7B, 75, 1847 

1680 DATA 59,92,90,13,33,35, 
33,45, 32, £96,73,92,44,32, 33, 
33,912 

1G90 DATA 35,45,135,92,05,78 
, 57, 7£ s 32,46,13, 13 p 0, 195,92, 
95, 1129 

1700 DATA 76,57,72,73,79,71, 
32,59,32,0, 195, 73,76.63.73,5 
9, 1120 

1710 DATA 77,99,58,32,0,211, 
75,73,90,32,36, 0, 76,52,3, 163 
, 1037 

1720 DATA 99,26,162,0,199,0, 
15, 157,52,3,232,224,132, 208, 
245,75, 1993 

1730 DATA 52,3,206,213,58,32 
,53,245, 159, 13,76,210,255,21 
1,55,65,1995 

174D DATA 73,79,71,227,45,95 
,918,13,0 ,152, 70, 160, 14, 32 ,5 
5,15,1330 

1750 DATA 173,5,9, 133, 139,56 
, 173, 5, 9, 233,16, 133, 137, IBS, 
136, 32,1553 

1760 DATA 505,163,162,96,160 
■ 14,3£,SS, 15, 150, 1 ,155, 137,2 
40, 19,200, 1639 

1770 DATA 24,155,136,233,253 
,133,136,165,137,233,0,133,1 
37,209,239, 152 ,2451 
17BD DATA 170,163,0,32,205,1 
99, 162,95, 190, 14,75,55,15, 13 
, 208, B2, 1545 

1790 DATA 79,71, 92,55,77, 32, 
75, 53,75,71,94,72,59, 32,0, 32 
,578 

1300 DATA 194,99,94,59,93,51 
,0, 32, 154,75,79,97,75,93,46, 
13,1245 

1910 DATA 13.0.199,0,133,198 
,32,55,155,199,0,141,149,14, 
150,0, 1433 

1820 DATA 132,124,195,0,2,24 
0, 17 p 200, 174. 149, 14,224,16,2 
40, 8,232, 1959 

1030 DATA 142,149,14,157,143 
, 14, 208, 234, 173, 149, 14,96,46 
, 49, SO, 51 , 1597 

1940 DATA 52,53,54,55,55,57, 
49,49,50,51,52,53,54.32,59,2 
29, 1013 

1850 DATA 159,9,170,150,15,3 
2,196,255,199,2,159,53,150,1 




00 



OE 



84 



71 



4S 



42 



D3 



IE 



5, 32 p 189,1777 

I960 DATA 955,32,132.255,32. 
231,555, 163,6, 160,0, 170, 32, 1 
99,299, 173,2405 
1970 DATA 149,14,152,150,160 
, 14 , 32 , 199 , 255 , 32 , 192 , 255 ; 16 
2,9,32, 199,2004 
1900 DATA 255 p 5,32, 14, 15,99, 
127, 133,59,32, 14, 15, 159, 166, 
B8. 152, 1400 

1890 DATA 32,205,199,159,32, 
32,210,255,32, 14, 15,240,5,32 
,210,255, 1927 

1300 DATA 20B,245p 159, 13,32 p 

210,255,200,213,75,24 ,15,32, 

207,255, 170, 2333 

1910 DATA 155,144,206,2,139, 

95,32,204,255,153,9, 170,32, 1 

35,255,32,2105 

1920 DATA 231,255,104,104,15 
3,45,180,27,32,210,255, 135,2 
OS, 250,155, 13,2358 
1330 DATA 75,210,255,73,49,1 



09 



4 7 



02 



23 



79 



60 
3D 



34,89, 132,53, 190,0, 177,69,24 
0,6, 32,1BD9 

1940 DATA 210,255,200,906,24 
5, 96,32,55,15,32,107,14,173, 
149, 14,940,2045 
1950 DATA 46,201,4,209,244,1 
52 , 1 , 32 , 101 , 15 , 72 , 32 , 101 , 15 , 
170, 104, 1509 

I960 DATA 169,24,55,32,115,1 

5,229,10,96,129, 133,32.32,11 
6,15,5, 1307 

1370 DATA 92,96,199,143,14,2 
32,201,56,144,2,233,7,41,15, 
95, 152, 1731 

1BBD DATA 174,160,157,55,35, 
157,78,84,59,92,32,210,213,2 
06, 45 P 193,2052 
93 1990 DATA 199,210,59,32,39,0 
, 197 , 78, 94 , 69, 82 , 32 , 204 , 207, 
215,45. 1745 

2000 DATA 205,137,205,58 32 
35,0,13,204,73,76,75,59,82,5 
9, 13, 133B 

2010 DATA 33,35,39,45,32,135 
,73,92,44,32,39,33,39,4s, 135 
,82, 1051 

BA 2020 DATA 85,75,87,72,32,46, 
13, 13,0, 195,99, 95,79,67,72,7 
3, 1059 

FE 2030 DATA 79,71,32,58,32,0,1 
3B , 73, 75, BB, 79 , 65 , 77 , 69 , 59, 3 
2, 1055 

57 2040 DATA 0,211,75,73,80,32, 

36, 0,75.52,3, 153,45, 152, 0, 18 
3, 1200 

2050 DATA 0,19,157,52,3,232, 
224,135,209,245,76,52,3,0,9, 
243,1712 

2050 DATA 234,0,201,0,0,0,0, 
0, 169,0, 133,250, 159, 144, 133, 
251 ,1684 

2070 DATA 159,1 ,133, 174, 133. 
193, 109,9, 133, 175, 133, 194, 16 
9,88, 133,252,2257 
29 2060 DATA 153 , 156 , X 33 , 253 , 15 
O , 0 , 177 , 250 , 145 , 174 , 230 , 2S0 , 
209, 2,230,251,2799 
OF 2090 DATA 230,174,206,2,230, 
175, 155,250, 197,252,208,234. 
165,251 ,137,253,3131 
ID 2100 DATA 209,229,169,243,13 
3, 1B7, 163, 155, 133, 169, 159,9, 
133,193,199,0,2477 
2110 DATA 133,105,190,0,195, 
195,156,240,5,32,210,255,200 
,209,245,32,2442 
2120 DATA 207,255,240,251,20 
1 , 43 B 240 , 4 , 201 , 56 , 49, 230, 41 , 
IS, 133, 105,2357 
2130 DATA 76,234,245,147,17, 
17, 73, 79, 80 , B5 , B4 , 32 , 69 , 59 , 8 
5, 73, 1464 
33 2140 DATA 67,63,32,78,95,77, 
66 ,59,92,13,17,. 57, 55, 83, 61, 4 
9,980 

OF 2150 DATA 32,47,32,69,73,93, 
75,01,32,56,32,79,99,32,57,5 
0,899 

33 2150 DATA 45,32,0,57,79,77,3 
0,65,67,84,79,92,0,0,0,0,757 

16 2170 DATA 0,0,0,255,955,255, 
255,255,0,0,0,0,0,0,0,0, 1275 
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Super Index 



Dig out those old magazines and get them organised 
with this super database 



Ha 



,ave you ever spent fruitless 
hours sifting through a mountain of 
back-dated magazines, searching for 
a particular article, sub-routine or 
program? Now with Super Index 
and a little typing skill on your part, 
all this thumbing through pages can 
be a thing of the past* 

This database will enable you to 
select a subject from a cursor-driven 
menu and then tell you immediately 
the titles and page numbers where 
the subject is broached in your pile 
of magazines. Press the 'R 1 key, and 
you are returned instantly to the 
subject list, ready to make another 
enquiry. 

This high speed shuttling 
between subjects and magazine 
titles is possible because the data- 
base is committed to memory only 
once before you actually use the 
program. The system is designed 
this way so that the READ state- 
ment is not required to re-search the 
database or arrays. The resultant 
speed means thai information 
comes to you as fast as Basic can 
print it on the screen. 

The program begins by defining 
two user-defined variables. The 
print limit (PL) is concerned with 
the size of the selection list dis- 
played on the screen. With PL set to 
20 you get the maximum display of 
20 items. If you wish, this can be 
reduced. 

The next variable involves the 
alphabetical sort (AS), and is simply 
the memory location for the 
machine-code sort, Though you may 
relocate the sort, you certainly can't 
omit it. 

The main task of determining 
the size and shape of the database is 
solved by reading all the data state- 
ments and concluding with values 
for DM (DiMension) and CL 
(CoLumn). 



What may have caught your eye 
in the listing, is the isolated data 
statements that lie between the pro- 




gram and data information, Lines 
1760 to 1790 serve to format your 
screen displays: 



TU(0}-1 760 DATA C/MAGS 20MAY88 
TL$(1H770 DATA "MAG:" 1 
TL$(2H 780 DATA "PAGE:" J 
TL$(3)-1790 DATA* 



Title of the dat a base 
Headings for 
the information lists 
An end marker 



What is so important about these 
particular data statements? Well, 
the entire usable database is struc- 
tured on two parallel arrays. The 
first is isolated and contains the 
various subjects on file and is known 
as the A$() array. 

The second, which is two dimen- 
sional* contains the information 
you're looking for and is known as 
the B $(*,-) array. Its structure relies 
on the format defined by the above 



data statements (lines 1760 to 
1790), The aim of this particular 
database is to locate the exact edi- 
tion of the magazine plus the page 
number against any subject you 
have chosen from the subject list. 
For example, an article entitled MO- 
DEMS can be found in the March 
1988 edition of Your Commodore 
page 96. That precise information is 
written down as: 



1860 DATA MODEMS, YOUR COMMODORE MAR 88,96 
t t t t 

A$() 



B$(V) 



The beauty of a system using a 
two dimensional array is its sheer 
flexibility, consider adding the fol- 
lowing line: 

1765 DATA "VOLUME:" 
You could now go on to create an 
extra element in your database, and 
line 1860 could now look like this: 

1860 DATA MODEMS A YOUR 
COMMODORE MAR 88,96 



So if you store your magazines in 
folders or volumes, you could easily 
grab Volume 4, in this case, whip 
out the mag and flick through to the 
correct page. 

If you really wish to impress your 
friends, you can use the program for 
other purposes. Car performance 
figures could be yours at the touch of 
a button. Try these lines: 



1760 DATA CAR PERFORMANCE 


The title of your new database 


1765 DATA "0-60:" 


1770 DATA "ECONOMY:" 


Six statements to 


1775 DATA "POWER:" 


• control six elements 


1780 DATA "SERVICE:" 


of the database 


1785 DATA "MAX SPEED:" 




1790 DATA * 


DON'T FORGET THE END 




MARKER 
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And a typical example for your 
database would be: 
I860 DATA FORD FIESTA, 
16.1 SECS ? 41 MPG, 
40 BHP,6000 MILES ? 80 MPH 
The only thing to remember is 
that your formatting statements 
(lines 1760 to 1790) must end with 
an asterisk (*), and that your data- 
base statements must contain the 
appropriate number of elements - a 
total of three in the case of Super 
Index, and six in the Car Perfor- 
mance example, 

With the database sized up and 
about to be committed to memory, 
it would seem appropriate to pre- 
pare a list directly for the screen, ie 
print A$(}- But first think about the 
disadvantages this may have. Such a 
simple list would be chronological, 
in other words, in the order that it's 
read, not alphabetical Perhaps you 
would consider an alphabetical-sort 
to be a bit of a luxury, and I would 
agree if the database was small but, 
with anything larger than 80 to 100 
items, luxury takes on a new 
meaning. 

The second problem would be the 
lack of a condensed list. It would be 
far better if the list routine exam- 
ined itself for multiple entries and 
formed single entries in their place, 
For example, modems are a very 
popular subject and occur three 
times in the database I've provided. 
However, if 'Modems* is to be listed 
on the screen it need only appear 
once f any more would be un- 
necessary. 

The third problem is making a 
single item list seem intelligent. 
Each subject in the list needs to keep 
track of where it came from in the 
array and then it can instantly reveal 
the corresponding information. Se- 
lect MODEMS and you will be told 
that articles on this subject can be 
found in three separate magazines. 

How is all this achieved? The first 
trick is to reconfigure the A$() array 
so that each element includes its 
own subscript For example, the 
flavour of the month, MODEMS, 
occurs at positions 1, 20 and 30 in 
the array, and what you have at this 
point is: 

A$(l) = "MODEMS" 

A$(20) = ^MODEMS" 



A$(30) = "MODEMS" 

What vou need is: 
A$(l)« "MODEMS!" 
A$(20) - "MODEMS 20" 
A$(30) = "MODEMS30" 

The method Eve chosen involves 
printing to and reading off the 
screen. Notice the OPEN 1,3 in line 
330, To see whafs involved, exa- 
mine lines 540 to 640 and you will 
notice that Fve formatted the print- 
ing on screen so that the variable (I) 
always begins four spaces from the 
end of each printed string, and that a 
colon (:) appears at the end of each 
string to minimise the string length 
to be read. In this example Eve used 
a to illustrate spacings. 

MODEMS 
Changes to MODEMS-20-: 
Which becomes MQDEMS-20- 

All this can be observed as it 
actually happens by changing the 
value of POKE 53281 in line 330 to 
POKE 53281,11 (ie change the col- 
our of the screen). 

Now that the A$() array has been 
rewritten > a quick excursion through 
the land of machine code (SYS AS*A 
in line 680) is all that you need to 
return the array nicely sorted and 
ready for final processing before 
appearing on the screen. If you 
follow the simplified block diagram 
(Fig. 1) and read what is to follow, 
this last process will become clear. 

The overall task of the routine 
(lines 700 to 830) is to extract the 
stored information held by the A$() 
array, and totally reconfigure and 
condense that information and pre- 
sent it as the L$() array (the list 
array). This takes place while the 
A$() array is progressively nullified 
in order to save memory. The result- 
ing L$() array eventually exists as an 
alternating series of words and 
numbers, hence the double dimen- 
sion requirement expressed in line 
470. 

The relationship between the L$() 
lines is very important, Consider the 
following: 

L$(29) = "MODEMS" 
L$(30) = "1—20-30-" 

Take the 1 s 20 and 30 from L$(30) 
and apply them to the B$(- f -) array: 



As you can see, L$(30) holds the 
key to the whereabouts of the corre- 
sponding information in the B$(- ? -> 
array for U(29) + Each of the 
numbers held by L$ is designated 
three spaces in the string, so the 
carrying capacity is the maximum 
string length divided by three (ap- 
proximately 85 locations). In our 
modems example you would need 
more than 85 articles entitled MO- 
DEMS before the program crashes 
with a 'string too long' error. 

If youVe checked the program 
listing (lines 700 to 830) against the 
block diagram (Fig. 1), you will see 
that Eve had to tell a few white lies 
in order to save space in the dia- 
gram. Remember that the diagram 
serves only to show the essence of 
what is occurring when the program 
is running; the real details are in the 
program itself You'll also notice 
that my first step (at line 700) is to 
nullify A$(0). In fact, when the A$() 
array is sorted, A$(0) is kept out of 
the alphabetical order because it is 
normally regarded by the sort-rou- 
tine as a reserved string (usually a 
title string identifying the array). As 
you can see, Fve reserved my titles 
elsewhere in a separate array, TL$(), 
choosing to bypass A$(0) as part of 
my database. The overall result docs 
not suffer in any way and the proce- 
dures are easier to follow with the 
database titles separated off 

At last you're on to the screen. 
Lines 880 to 1020 deal with the 
subject list and s if you' ve paid atten- 
tion, you 11 realise that only the odd 
numbered subscripts are printed to 
the screen - L$(l) ? U(3), L$(5) and 
so on, The variable T is the funda- 
mental counter at this point and the 
mathematics involved is pretty 
straightforward; check lines 390 to 
910. All the user has to do is to select 
the required page (SPACE or 
SHIFT/SPACE), press RETURN, 
move the arrow cursor alongside the 
appropriate subject, press 
RETURN again, and the informa- 
tion (the magazine titles and page 
numbers) are printed on the screen 
immediately. 

Why is this process so speedy? 
Well, if youVe selected MODEMS, 
it is displayed as number 15 in the 
subject list, and if you take 15 and 



:B$(U) = "9G" 
:B$(L20)-"39 
:B$(I,30) = "56 




B$(0J) = "YOUR COMMODORE MAR 88' 
B$(0,20) = "YOUR COMMODORE APR 88" 
B$(0,30) = "YOUR COMMODORE DEC 87" 



53 



LISTING 



multiply it by two you get 30 + If you 
then take L$(30), you should get the 
string "1— 20-30-". Take the three 
values (1*20, and 30 - the variable 
*Z y in line 1090) and apply them to 
the B$(-,-) array and the process is 
complete. The value of 'Z 1 is ob- 
tained by taking a look at the 
numbers in the appropriate L$() 
string in jumps of three (P=P-h3 in 
line 1070) and, in this way, three 
digit values can be catered for. Press 



the 4 IT key and you are returned, 
without delay, to the subject list 
ready for another go. The business 
of darting from one screen to 
another uses no memory, so you can 
play around without fear of crashing 
the program. 

Before you start key bashing, a 
few bits of information and advice, 
The program lines containing the 
colons only are purely decorative 
and are there to separate the various 



routines throughout the program. 
By contrast, the full stops in the 
DATA statements act as shorthand 
repeater statements, study the 
DATA statements carefully to un- 
derstand what is going on. As to the 
capacity, Pve tested the existing 
database to approximately 640 
lines, without any problems - and 
that's more than ten items per 
monthly magazine for five years. 



PROGRAM: SUPER INDEX 



F3 
F4 
ES 

m 
01 
as 

67 

nr 

ia 
be 

F7 
00 

41 

AC 
55 

SB 

BE 
31 

3B 

IE 

ED 



DC 
CA 

7D 

17 
ES 

as 

54: 



ca 

7B 

m 

GF 
3D 

□5 



B0 



IS REM 

£0 RET1 *+* SUPER INDEX *** 
30 KEPI *« *** 
40 REM *** WRITTEN BY *** 

*" 

N . HftRT , *** 



TL$-TtSC0^ 

1=1: E=0 
POKE 5 3200, 7 
READA$CI> 

pr int 11 : HoriE , ooyN T sfc38 3 



50 REM 

ee rem 

70 REM 
80 REH 
30 REM 

100 REM * B0 llflY 1380 * 
110 REM 

ieo refi 

130 REM 

140 pl-201 sen print LinrT 

160 REH ALPHABET I CA 

L M/C SORT 
170 : 
130 - 

1 80 PRINT CHRS C 3 3 : FUK £53£ 81 , 1 

5 ; PGKE53EB0 , 1 1 ; OPEN1 , 3 

200 FL-PL-2: IFPL>50THENPL-£0 

a 1 0 pr r n r j t b lack p c l k a do w ns i " 

5FCC35TLEASE WAIT? * 

BS0 PR I NTT ABC 3 3 ?, t DOWN D THE IN 

DEX IS BEING SORTED" : L"£ : PR I 

NT "C HOME , DOWNS: " 3 G05UB1 140 

230 : 

24E s 

250 PDKE53EB0 a 0: FDKE53290,E : 
READX; I FX<>9GTHEN£50 
ES0 READTLS : PR INT ,p [ R I SKI , UPS 
p RUSON3 "TLS : CL-CL+1 
£70 R E ADTL $ : I FT L $<> H * " THEN CL 
-CL+1 ;EDTG270 
280 DM— l:CL*CL-2 
£90 PDKES3SB0 a B i READ AS t DM- DM 
+1 : P0KES3BBB ,0:1 FM<> "HEND □ 
F FILE3 "THENSS0 

300 En-Dn/ccL+s)+i 

310 s 
3?0 i 

330 mMASCDM^BtStCL^nO a L$C5 
*DM> T TLBCCL+e> : RESTORE 
340 s 
350 J — 1 

360 POKE532G0 S 0; J-J+1:P0KE53 
SB0 , 5: READX] FDKEAS+J.X: IFX<> 
9GTHEN3G0 

370 READTLSt H : I FI < CCL+S )THE 
NI-I+1: 5010370 



CB 360 

50 330 

55 400 

11 410 

ED 4£0 PRINT":HOriE s D0yN > SPC33 1 U 
P3" 

30 430 PR INT " C CG3 ah ASC I ) " E SPC43 ; 

clefts:. "I^eleft. up: P1 

6G 440 I FLEN f AS t I 3 !i > 31 THENPR I NT 
'T BLACK k CLR a DOWN s R 1 GHIHSTR IN 
G IN DATA TOO LONG ERRORCDQW 
N3 hh : PRINTAIC I > : STOP 

IB 450 READBSCEp ID 

UE 450 IFBSCE, n-'\"THENGlCE s I) 
-B$CE P 1-13 

3E 470 E-E+l: IFE>CLTHENE-0:G0TD 
490 

DS 430 GOT 0450 

Bl 490 INPUTttl s lASCn 

34- 500 PDKE532B0 3 0i IFLEFTSCflSC I 

^13K>"CEND OF FILE! "THENI™ 

I-M:GDTO400 
CS 510 ; 
30 "5E0 : 

34 530 POKE53EB0 5 8; PRINT^CLRpS 
LACK , 0DWN7 , R I BHT^ , RUSON3 ALPK 
ABETICftL SORT r 

17 540 BYSfiSj At POKE53EB0 P 3i 1-1: 
X-0 : PR INT" [ CLR p C3 ? DOWN] " 

IS 550 : 

Da 5£0 PDKE53EB0 B B:ASCX3-"" 

0G S70 POKE532e0 1 13iX-X+l 

A7 500 IFLEFT*CASCX^,13 3-"CEND 

OF FILE1 "THEN710 
IB 530 IFLEFTiecn*CX) 1 LEMCflSCX3D 

-3 3 -LEFTS C ASC X + l 3 , LEMC AS C X+l 

>>-3)THENBB8 
DB B00 PDKEE3S30 ,4 
94 G10 PRINTHIGHTffiCPiSCX3 p 3>' lCL 

17 520 PRlNT"CMQIiE,naWN3" 3 LaCI> 

-LEFTS CASCX) , LENC A$CX3 >-4J 
IS 530 I FPEEK C 1 1 44 ) - 3ETHEN I NPUT 

ttl J L$CI+l>:BaTD&30 
Bl 640 INPUT#1 S ; IFySCY3- ijW 

THEN6B0 
B4 G50 Y-V+i ;BDTD640 
El GG0 FRINTRIGHTS<ASKX;J ,3V' E tL 

EFT 3" 5 - P-P+l ^ IFF-12THENP-0; P 

RINT 
36 B70 GOTD550 

34 BS0 FDR2-0TOY-1:LSC I+13-LSCI 
+ 1 )+Yi t Z > : V5 C ^3 - H n t NEXT 

3A 630 I-I+£ : y-0;P-O:FRrNT' l CCLR 
j DOWMJ " : GGTDSG0 

84 700 : 

3G 710 1-1 : PDXE532B0 a 14] PRINTS 



CLR p BLACK p DOUN7 , RIGHTS, RUS ON 
1 CLEARING GARBAGECC9D " 
2F 720 PR INTFSE C B 5 : POKES32Q0 k IS 
EG 730 i 

D8 740 PR INT "C CLR , BLACK p DOWN 1 " i 
L-0 

7£ 750 PRlNTTABC2)I/^+.S:PRINTT 
ABCB^CUPJ i w ; i IFI/E+ .S^NTHEN 
PRINT p, CRUS ON] 11 \ 
AC 780 PRI1MTLSCI3: I FPEEKC 1144+C 

FL*40 3 +5 > <> 32THENB00 
7F 770 IFLSC I+B^> ""THENI = I+£ s L 
*L%l3OOTO750 
7B0 L-L+l t PRINTTABC 103 "*END 
OF SUBJECT LIST*" 
CD 730 PRINT"CHQME:r h LGOSUB1130: 

L-L-l ; GCTDB10 
□ 3 B130 PRINT"CHPI1E3":GaSLlB1130 
BE B10 PRT NT "C RIGHT, HU50N3 CSHIF 
T 5 C SPACED -PAGEC RUSOFF r 5PC3 p R 
USGN □ C RET URN D - E NQU I R Y " 

0D ee0 t 

Bl 630 POKEigB.Oi^ITige, 1 ;C-FE 
EKC6313 

99 G40 IFC-13THENLL-L-GGSUB13B0 

; PR I NT : 60 TOGS 0 
BB B50 1FC=3PAWDL$CI+SH>" H THEN 

I-I+eiGDTO740 
GF BG0 IFC-lB0ANEI<>e B L+lTMENI- 

I -C P* C L+PL+S1 ) i BOTO740 
SB 870 BOTa330 

31 330 P— IFN-OTHENI-cn-tLL* 

P3 :GOTO740 
47 830 : 
BD 800 : 
AB 510! : 

AC 950 FRINT^CLH^OWN^RIGHTSp 
R U 3 ON 1 11 L I C N+ e-1 DOWN 3 " : L- 1 

SE 530 P-P+3 
AB 340 IFP> LENCLS CN*BD 5TMENPRIN 

TTFfcBCier'tUP^ . - END. + "^P-1:G0 

TO 1040 

DC 350 Z-UALCtniDStLSCN*£i a P a 3? J 

IA 960 PRINT J| CUP1"; = FDRT5-0TOCL 
: PR I NTT AE C5 3 CHRS C1G0 ) 

FA 870 3FPEEXCiaG3^<>3^THENT5-C 
L: NEXT j PRINT a, :UP3 s> s : L-L-l : 00 
TD1040 

SS 380 NEXT 

B5 380 FDRTS-1TDCL:PRINT"CUP3"; 
; NEXT: PRINT* > CRI6HT43: CLEFT43 

M 1000 L-L+l:PRt«TTABC5DTLSCD+ 
13 ; t PR I NTBS C D , 2 > : IFD-CLTHEND 

-0 j eaTPi020 
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14 101© D«D+1;BQTO1000 
4B 1020 PRINT: L = L+1 

BF 1030 6OT3330 
IE 1040 EOSUB1130 

BE 1050 PRINT" E BLACK .RIGHT, RU50 
N 3 L SPACE] -PAGE E RUSDFF p SPC15 p 
RUSON] LE2 - RESTART H 

15 1050 : 

CE 1070 P0KE19B ,, 0 s UA IT13B , 1 1 C-F 

EEKCB3I3 

ES 1090 IFC«32THENFRINT"CCLR,ED 

WN5 J " ; P-P-3 ; 6OTG320 
46 1090 iFC-BBTHENl-C n-CLL*E) ; 

GOTD740 
40 1100 GOTO10BO 
60 1110 ■ 
5E 1150 i 

17 1130 PRINT w ClH0rtED M ; 

£4 1140 PR I NTT AB C 2B ) 'T RUSGND 5UF 

EH INDEX" 
F9 1150 FRINT"IIRIGHT,RU5aN,UF:i" 

5E 1160 PRINr p [RIGHT,50,CY36,5P 

3" 

43 1170 FPEX-0TDL ; PR I NT "C RIGHT p 

CH] "SFCt 36 3 " C CNH " ? NEXT 
EA 1160 PRlNT"i:RlGHT,SL,CP3G,5@ 
1" 

54 1130 RETURN 
BE 1200 ' 
B4 1210 : 

BE 1220 DATA3£ t 115,0,133, 57. IBS 
, 158, 133, 95,35, 115,0,540,7,9 
, 12B, 133.9B, 35, 115 
01 1530 DATA0, 165 p 47, 133,33, 155 
, 49 p 133 , 100 , 1 50 , 0 , 155 , 37 , 203 
,33, 20B, 7 , 200, 1E5,9B 
3E 1540 DAT A509 , 53 a 240 , 20 , 24 ,16 
0.2, 177.99, 101,99,75,500, 177 
,33, 101, 100, 133 
B7 1250 DATA 100 , 104, 133 , 99, 144, 
ESI, 160,5, 177,93, 133, 102 t 2S0 
, 177,33, 133, 101 ,509 
E7 1250 DAT A5, 19S, 105,199, 101,5 
4, 185,93, 105, 7, 133, 99, 165, 10 
0, 1,05,0,133, 100, 165,101 
3C 1570 DATA50B.2, 13B. 102, 139, 1 
01,509,4, 155, 105,540,19, 133, 
105, 162.0, 134. 103, 134 
30 1£B0 DATA1 04, 155,59, 133, 106, 
165, 100, 133, 107.240,224,240, 
114,24, 165, 106, 105 
34 1590 DATA3, 133, 105, 1B5, 107, 1 
05,0, 133, 107,530,103,209,2, 2 
30,104, 150,5, 177, 10G 
D9 1300 0ATA153, 109,0, 136,15,54 
9, 160,5, 177, 10S,153 I; 109, 0,13 
6, 192,5, 506, 246, 170 
BD 1310 DATAS5, 223, 103, 144,5, IE 
G, 109, 160,555,235,500,202 ,20 
B,B, 165.112, 137, 109 
3D 1350 DATA144, 10,175,34, 177,1 
13, 509, 110,540.23B, IB, 56,160 
,2, 1B5, 115,0, 145 
FF 1330 DATA10E, 13E t IF., P4G, 160, 
5, 195, 105,0, 145, 1ES L 13E, 192, 
2,20B , 24B, 159,0, 133 
9A 1340 DATA105, 165, 1E1 ,197, 103 
,20B, 152, 165, 105, 137, 104, 20B 
,146, 155, 105,540, 138, 95 
71 1350 : 
5F 1350 - 
65 1370 s 

F9 1360 PRINT ,3 llRU5DN,UF,RIGHT3tt 



□UE CRSRCRUSCFFD CRUS0NHR1- 
RESTART" 

IS 1330 PHINT JJ [:H0riEr ? SPCC2BrT5 

FC3 , RU5GN1 L 5 : -5AUEC DOWN! M 
3D 1400 N-0:^0;PRINT m E:RISHT5^> 

H 

03 1410 PDKE198,0 : WAIT139, liOP 

EEKCB31) 
35 1450 IFC-B2THENRETURN 

50 1430 IFOB3THEM1550 

BD 1440 IFA-LLANDC-17THENA-A-1: 
PRINT J ^aP2: j? 

65 14B0 IFA-0ANOC-145THENA*A+1 : 
PRINT 

ED 1460 IFC«17THENA=A+1; PR I NT 
RIGHT£,UP3 CLEFT, DOWN H> hJ 

99 1470 I FC-1 45THENA-A-1 ■ PR I NT rt 
EIRIGHT2,JPD CLEFT, UP 3 > " 

35 14B0 IFC-13THENPRINT W CRI5HT3 
, UP] " ■ : GDTD1500 

DC 1430 GDTD1410 

09 1500 lNPUTttl,N 

66 1510 RETURN 
CF 1520 
C5 1530 
30 1540 

07 1550 PRINT J TCLR,DGWfa3:]5AUE h T 
HRSC34 3 TLSCHR5i( 34 ) "C UP33 " 

EB 1550 P0KEB31, 13: FDKE13B, 1:EN 
0 

12 1570 ; 
0B 15B0 : 
06 1590 ; 
7C 1500 : 
GA 1610 i 

5C 1620 DATAC/MAGS 50riAY86 
FA 1530 DATA"MAS i " 
38 1640 DATA "PAGE: H 
55 1&50 DATA* 
99 1660 
05 1670 
AC 1590 
3 A 1630 
90 1700 
9E 1710 

IF 1750 DATAflDDEnS , YDUR CQMnDDO 
RE 11 A R 59,35 

51 1730 DATASUPER MOUSE, ,,33 
CB 1740 DAT ABAS I C COMPILER, COfl 

DISK USER tIAR/APH 13BB, IB 
11 1750 DATAPRDFE55IQNAL PRCGRA 

UrilNG, . ,40 
45 17G0 DATA MULT I CD LOUR,,, 14 
B6 1770 OAT ABAS I C+ , . , 50 
C8 1760 DATA! APE ARCHIUE, . ,21 
FB 1790 DATA LINK AND CRUNCH M/C 

DDE , . , 22 
FC 1B00 DATAHDNITDR, . ,24 
09 1B10 OAT AD I SK LIBRARIAN II,, 

AC 1950 DATAPRODRAn COMPRESSION 

70 1930 DATAHCINITDH, . ,33 
BF 1S40 DATABYT EiMG INTO TH£ 651 

0, YOUR COnriOOORE JAN 99,13 
FE 1B50 DATALIST PAUSE, YOUR COM 

MO CORE APR 9B,14 
B7 1950 DATACARTR I DGE-F I NAL CAR 

TRIDGE III , . ,1B 

bd 1970 dat ac a r t r i d6 e - act i om re 
Play 

Bl 1 3 B 0 ' DATA AUTO START, . , 55 
36 1B90 DATACLEARING TEXT SCREE 
N, . r 24 



ID 

AD 

AO 

13 

E2 
IF 

FC 
5E 

ES 
DD 
37 

G£ 



1300 DATA TABULATION OiN SCREE 
N , . , 30 

1910 DATAMOEEliS, . ,39 
1950 DAT AM US I C j - ,45 
1330 DAT A MAKING GE05 BRITISH 

1340 DATAARTIFIC1AL IMTELLI5 
ENCE, * ,53 

1950 DATAP1USIC, . ,65 
1550 DATAEXTENDEO BACKGROUND 
S, ..GB 

1970 DAT AT APE TURBO, ., * 
13S0 DATACP/fl ASSEMBLY LAN6U 
A6E , . , 70 

1930 DATAMUSIC, . ,75 
5000 DATADLD ROUTIME s . , 73 
2010 OATAM0DEF1S , YOUR COnhODD 
RE DEC B7,56 

2020 OATA i3 LEND OF FILEJ " . . 



> > a i i i i i i I > j i i : 
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COMMODORE PROGRAMMING 



All you ever wanted to know about your Commodore but 

were afraid to ask. 



programmers spend a lot of their lime sifting through 
pile^of technical books looking for the address of a certain 
routine or trying to find POKE to perform a certain function. 

Now you can throw away your books, as on the following 
pages you will find a wealth of information about all of the 
popular Commodore computers. 

Advanced programmers will find the memory maps 



invaluable while both beginners and old hands alike will find 
the Hex converter, the hints and tips and much more, to their 
liking, 

Most of the information provided here is useful by itself. 
Some information, such as the addresses of routines within the 
ROMs, will be of more use when used together with a ROM 
disassembly, 



it:rii':KY rnP DF THE CG-: 



LABEL 


HEX 




DEC] HAL 


DESCREP7EDN 


D6&13 






0 




5510 D i - RC t-. i dp rcgis-.ar 




sBdBl 




1 




6510 mR.nory and taps 




5O022 












40303- 


3001 


3-4 




Float tn Fi*ed vector 




E0035- 


9905 


S-r 




Fj-xhcI to Float vector 


CMARAC 


50007 








Search character 


ENUCHF 






a 




Striria scan-ni-iotee flag 








s 




IftE COluflTi 


uERCfc 


S3Q0R 




10 




Flafl: LOflD-0, UlBEFY-L 


EH UN 7 


80033 




11 




] nput Suffer pointer/ 












H- auba-LLiptS 


OJrtFLG 










Befault Dirt Flafl; default-t 


UflLTYP 


300GB 




13 




□Btft tupa= stnng-355, 












nuir-ar ic-0 


IN7FL5 


5000E 




14 




Numeric date type: 












f ]ait:ng-e, ir Lefler - 2c*ft 


GfiRBFL 






IS 




BAT* slhu-'LlST quoted 












Garbay- collect Fla[J 


5UBFL5 


50310 




16 




Subacript/F+J Flafl 


5NPFLG 


B0011 




17 




Flag. INFUr-0, 6ET-&4, 












REfeC-15E' 


TpaiSGN 


10315 




18 




TRN slnn/conpansoni 












rwult 




*0313 




13 




[Npl/T prompt Flag 


LINNUP1 


iOOlt- 


O015 


50- 


El 


] nEpgar value 


7EHPPT 


50015 




ES 




Pointer: teiip atrir^ Stack 


LA5TPT 


50017- 


0015 


53- 


E4 


Last, tamp s&rlfig address 


TENF5T 


50013- 




&5- 


33 


Stack for tBffip Strings 


INDEX 


10032- 




34- 


37 


Utility pcintsr sr*» 


Hh::n:-:n 






29- 


43 


Product area for 












multiplication 


TKTTftB 


i=:::i.- ■ 


00BC 


43- 


44. 


Pointer start of BASIC 












E 5360) , 


UAKTAB 


3 30ZD 


00CF 


45- 


45 


Pointer -start dF variables 


AHYTAB 


$00Z:F 


0030 


47- 


4B 


Pointer ait art nF errftyS 


51 REND 


MA31- 


■3035 


45- 


50 


Pointer and c-F arrftya tl 


FEETCF 


50033- 


0034 


Si- 




Pninter bottom OF StrinflB 


FRE5FC 




#336 


53- 


54 


Utility strinQ pointer 


nErl5]2 


SB037- 






S6 


Pairt«r hiQt-BSt aiidrR^n 












ueed- bu ftflSlC 


CuRLIN " 


S003S- 


£33A 


57- 


58 


Currant BflSlC line numbeff 


DLELIN 


33035- 


303E 


55- 


50 


Preuidua BASIC line number 


□LDTXT 




h;vh- 


61- 




BPS' I C aLatement For CQNT 


DftTLlN 




afl4& 


&3- 


£4 


Currant D^Tft llnfl 


BfllPTft 


S0041- 


08H2 


S5.-E6 


L"_i ; t-" " ■■"« riri-.rasa; 


INPPTR 


* 23' 1.2 


3044 


57- 


55 


3NPUT roLitina vafttor 


UAPSsAM 


*00t5~ 


-0045 


55- 


70 


Pointer: curc-eflt variablB 












ramp 


UARFNT 


50047- 


0045 


71- 


75 


Pointer: currant variable 



FDRPN7 




004^ 


73-7H 


Pd : nter ■ var i a b i e for 
F BE V NEXT 




2 L* :-3'H ^ - 


ae«c 


7S*7& 


Y- aave/op- save/ BAS E C 
pomtsr nvr 




3-33'iD 




77 


Coapartason asymbal 
aocumylator 




S03HI- 


3053 


7B-83 


Flisc UDrk ara-d 




saos- ■ 


0056 


S4-B6 


Jump vector €DC Funct^ona; 




*00S7- 


3050 


57-55 


rilEiC TiunoriL work arna 


FflCEiP 


±30Gi 




97 


FAE*1 - exponent 




S0i3S£- 


0055 


9B-101 


FAE*1 - m3PtlK3ia 


FPC55N 






1GE 


FAC#1 - aiign 


SGNPLG 


E00E7 




103 


Pointer: serLo-s evaluation 
constant 


BETS 


100E6 




104 


PACtl - overFlou: Cin.lt 


RIGEKF 


10365 




105 


- exponent 


ARGV.D 


■005^- 


■O05O 


10&-10B 


FAC"5 - Rant L6-&a 


ARE5GN 


50B6I 




113 


FPE*S - Sign 


rx: 


S00EF 




111 


FAt*l/*B sign conpa.riaon 
result 


FftCDU 


10073 




ua 


FACtil - lou order rounding 


FBUFPT 


S0B71- 


007E 


113-114 


Pointer: cassette buffer 


CHRDZT 


1007 3- 


■003ft 


U&-13B 


Subroutine: net na*t BASIC 



bL^te 



CHRQDT 50075 l£l Entry point to B Ht = a * a 

□ytH 

TXTPTP S0a?A-a07B 1SE-L23 Pointer currant byte- of 

BfiSlC 



RNDX 


t009B- 


008F 


133-143 


RND seed value 


9TAIU5 


50050 




144 


JCernal 1/0 statua; tST> 


srxEY 






145 


5TDP kay/fiuE fc H y -suLtcri 


5UX7 






146 


Timing oonatant For tape 


U ERC^ 


saenn 




147 


Fi»g: LDAB-0, UEREFV-1 


C3P0 


S00S4 




145 


Serial bus: buFFered chvr 
flag 


ESBUH 


19055 




L49 


Serial bu9: Puffernd output 
character 


SVNO 


10055 




L50 


ICI tape SlffnaJ, rncaivesd 




S0PBT 




lBi 


Register saw* 


LDTHO 






1EB 


N(>n6ar of Files open/ File 
tanln ndsx 


BFLTN 






153 


Input device (default-SJ 


DFLTO 


S005e 




154 


Djtput device Cdefault-3] 


PRTV 


£0033 




155 


Tape cher parity 


DPSiJ 


S005E 




;££ 


Flap: tape &yt« receaveid 


H55f LQ 


50030 




157 


BflSEC matJe: Prograr-Q, 
Cirect-iaa 


PTP1 


500BF 




156 


tape pass 1 error lam 


PTR£ 


seaa? 




155 


pass Z error Icq 


TIHE 




-l?-3A5 


1B3-15E 


Real-time JiFFy olOCK 




S&QA3 




163 


Sarial bit cOunt/Ed fl#g 




EQ0n'4 




1&4 


Cgcla count 



YOUR COMMODORE SEKIOUS L'SERS GUIDE 
W5 



COMMODORE PROGRAMMING 



► 



cntdw 






165 




Tgpo sync COuntddMn/blt 














BjFPNT 






IBS 




Fainter: tapn 3/Q huffar 


[NB] T 


S00fl 7 




167 




R5333 input hi t=/ tapeiur^tE 












Ictr/read CDutitJ 


BltC I 


S30AB 




159 




RS332 input 61t COynt 












tape write ldr/read count 


RE NONE. 






163 




Flftfl: RS33E start bit 


R I DATA 


■E0l£ Ifl 




170 




REE33 ifiput byte buffer/ 












taps C &can/coun ter /ldr J 


n- r pal w 






- 71 




RSS3S input parity/ 












tipo (writs ldr ler.n;cn/read 














SAL 




-0BAD 


173 


-1 72 


PDintsr: tapa &uf for/*cr«*n 












*croli Ing 


EflL 


■£00flE 


-0BAF 


: 7-i 


-175 


Tapii prn[jram enct pddrass 


ChPQ 




-00E1 


17& 


-177 


7-ope timing zmstants 


TAPE t 




-00B3 


178 


-1.79 


Pointer: atfcrt OF tape 












tiuf rer 


BTTT5 






1E0 




P5332 DJt tit. rnunt >" 1 9 pe 












timer anablvd- - ! 


AXTB5T 


100B5 




i.ei 




E5E33 rax t bit tn nKnrl/tgpe 












EOT 


PDDftlft 










H5E33 CKjt byte buf f ^r/rsati 












Character error 


FnLEN 


5.B3B7 




i83 




Currant Filenane length 


LA 


S00E3 




194 




Durrant logical File nurr.ber 


SA 


ttm 




165 




Current sacondary artd.rt!£.b. 


Ffl 






} HH 




Eurrent device ni.miiRr 


FNfiOR 


SD03E 


-0EBC 


1B7 


-iee 


pDintar ; Filename addraac 


HCFRTY 






IBS 




RS233 out pBrltu/tapa faad 












input char 


F3ELK 






150 




Blacks lsft Tor taps 












raad/urj. te 


nTEH 


*0BBF 




191 




5ar ial ucrd buffer 








132 




Tap6 mclcr sensor 




seaci 




133- 


-134 


[/□ atdrt address 




SSOC." Cf:.. i 


1SS- 


-196 


K&rnal setup pointar/taipe 












temp addreas 


L5TJ£ 


INC5 




137 




L**t Kay pressed 


NDX 






1SB 




Keyboard qunuo length) 




I00C7 




1HH 




Flag: reverse chars: Qn-1, 












Off*H 


[NO* 


f00ES 




500 




Fainter : end of line: for 




SE0C3- 


aacR 


Ml- 


'333 


Cursor raw, cai.sm^ at 5tflTt- 












Df INPUT 


SFDX 


SO0CB 




R03 




Currant key pressed: 












Tig Key -54 


3LNSW 


s&bcc 




3B4 




Curaor blink phase : en*!, 












off -a 


BtNCT 






BBS 




Cursor countdown timer 


EDEL.N 


E0BCE 




SOB 




Character at cursor 












position 


BLNDN 


500CF 




E07 




Cursor fiiink: phaaa on/oFf 


CfiSU 


S00H0 




30B 




Flag: INPUT fro* »c:rweni/SET 












frqm keyboard 


PNT 


SflODl 00B3: 


509-210 


Pointer ; current ecraen 












line ad-dreae 


PNTR 


50003 




£11 




Cyrrsor column on current 












Unas 




saaot 




31? 




Fiagi ^ulIh rode stetus: 












HO quutas-E, in quates >0 




S00F5 




£13 




PhyatcBl ecraen line leriffth 


TBLj? 






314 




Current fdl location nf 












cursor 




Sfl0D7 




315 




Las t in key /chnoJcc^m .■' t . ii" r r r 












temp data 


IN5J?T 






315 




Number df inserts 












outstanding 


LDTE1 




00F3 


317- 




Screen ling linK ta5 la 


USER 


S00F3- 


0BF4 


243- 


341 


Pc-intar; current cursor 












colour Rfln loeatien 


K£Y7«B 


f00F5- 


O0F5 


345- 


24B 


.trjhnnr- decode taole 












sddreEs 


HtBUF 


100F7- 


O0FD 


347- 


346 


Pointer; P5333 input durrer 


RUB.:!-- 


S0EF3- 


BBFA 


343- 




Pointer: output 












buFFer 


FREKZP 


mrB- 


G&FE 


351- 


E54 


Fee* zflra page eree 


BASE FT 


S00FF 








BflSIC temp data area 




33100- 


01FF 


356- 


Ell 


Prc^cesisor stack 




30100- 


E-10A 


35E- 


3EE 


Float to ABC] " uork area 


EnTl 


5010B- 


013E 


355- 


315 


Tapa error log 


BuF 


E0300- 


035B 


51B- 


50D 


System input buffer 


LAT 


S03&9- 




501- 


510 


Logical File table 


FAT 




3S6C 


511- 


EES 


File device number teble 


5AT 


t0£DD- 


0376 


651- 


630 


Seconder y address table 




&B377- 


03BB 


G31- 


E-43 


Knij briar ri buffer 


M£ri3TR 


S0E91- 


E3B3 


B41- 


G-J3 


Start of BfiSIC rngmor-J 


hEnS] 2 


50383- 


03Et 


&13- 


E44 


Top of BASTE menory 


T IfldUT 






545 




Serial bus tiTie out Flag 


E 3 LOF 






BHj5 




Cufrent character colour 


BDCCIL 


*&3B? 




S47 




Eack around eclour under 












cursor 


K3 BASE 


423QD 




Slfi 




Screen iccetion page nueber 




I03E3 








Biza of keyboard buffer 


FPTFLE 


h^ba 




Esa 




Repeat key flap; default-B, 












repeat all-l£9, 












no repeets-S4 


KOUNT * 


10EBB 




B51 




Repeat speed counter 


Ut" PV 


S03BC 




653 




Repeat delay counter 


5HFLAS 






BS3 




Flag: 5WIF1-1, CBrl-3 , 












CTRL* 1 ! 


L5THF 






65H 




Last shi Ft pettarn Flay 


KEYLOB 


S0EBF- 


0E30 


E5B- 




Keyboard nnt.ur table 












pointer 




E03S1 




B57 




Flay: 0-diaable shiFt kegs 












13B-enable shifta 


ALFTDDN 


42393 




?:.::! 




Scroll - enable-* 



MSlCfH 


S0HR3 




ESS 


RS33E control register 










irr«u;e 




rlSlCDP 






5E0 


R5333 comtiand register 










image 




hSl AJB 


sa?3s 


-02SG 


&61-£Er3 


RS232 non-standard baud 










rate 




RSSTAT 


10297 




G&3 


P5232 status regie ter 










image 




B]TNUn 


laBEB 




BB4 


RS333 bite leFt to aand 


EflUDDF 


S0E33-B35A 


EB5-EB6 


R5333 baud rate 


i?] D EE 


i0£5B 




5E7 


P3333 Index to end oF input 










cufFer 




■mitt 


B03SC 




553 


RS333 page nu^tiBr oF start 










qF Input buffer 


IZODfiS 


s:r-':-: 




663 


RS333 paua number of stert 










of output buff ar 


ROCDL 


me be 




670 


R5233 1 index ta end oF 










output 


buffer 


[KDTnP 


i-EESr 


-03A0 


€71-673 


IRC vector during tape sa^a 


£NflBL 






673 


RS232" enable/CIA? <Nfi[ ] 










interrupt control 




Sa3AE 




67« 


CIA 1 timer A control lOfl 










during 


tape I/y 




S.03A3 




675 


CIA 1 interrupt log tape 










read 












CEA 1 timer 11 enable log 










l-apn -nari 




t&aAS 




977 


Screen 


line marker 








67 0 


PAL/HTSC flag: 0-NT3C, 










1-FAL 






5BEA7 


-33FF 


S73-757 






1ERRDR 


50303 


-0301 


75B-7B3 


vautui' : 


BA5IE error 










maBSaaes (BE3BB3 


I MA IN 


s&sas/ 


-0303 


770-771 


Un-tnr: 


KPHIC t a,-m start. 












:itr ::u; 


[CRNCH 


i.e JD'I 23?.7: 


77B-773 


Uector : 


BASIC crunch tokens 












CSA57CH 


EQPLQP 


¥0305 


-0307 


774-775 


Uactor : 


BftSEC print tokens 














E60ME 


$0305 


-030S 


776-777 


uector ; 


BASIC etert new 










line 


< say km- j 


!£uftL 


5030PI 


-03OB 


776-779 


Uector ; 


BASIC taken 










evaluate CSAEBS!) 


SAREG 


S030C 




7sa 


Save accumulator 


SxB'EG 






761 


Saun X 


register 


3YHE0. 






7ED 


Save V 


register 


BFREQ 


S030F 




763 


Save st 


etua register 


Ua"RPDK 


B03-0 




7B4 


JSF Function Jurrp CD^marrj 












<44C> 


UERADC 


S03] 1-0312 


76E-7BB 


L5R address lou/hiGh Fcrtti 












C1B34B) 




■0313 




7B7 


Lnusad 




CI NU 


S0314 


-B315 


7BB-7BS 


Uector: 


Hardware IRQ 












tiEA31> 


CSENU 


5031-3 


-0317 


730-791 


uectcr ; 


BRx interrupt 














NR [ NU 


S032€ 


-0313 


79iS , -793 


uectcr ; 


.NM] 












C1FE4 7 5 


J :\Fr.K 


B031A 


-031S 


791-795 


uectcr : 


KEPMfit OPEN 












(SF340-] 


1ELD5E 


P0S1C 


-031Q 


79E-7B7 


factor : 


XERhAL ELQSE 












(BF331D 


IC^HK IN 


1031 E 


-B31F 


75B-73S 


Uector j 


KEFNAL CHKIN 












ESF3&E3 






-E331 


BC3-5E1 


Uector: 
















l ni npi 1 

ICLRCH 


S0335 




B0fi-9ft3 




Krftvn:. CLRCkM 












(IF333) 


! BAB3N 


£0334 






Uactar- 


JCIRNAL EHRIN 












?SF1S73 


IBBDuT 


■S033G 




006-9*7 


uector: 


t-HNfl; i:Hh-u!.r 












(*F1DA1 


1STDF 


103ES 


-B339 


50B-BES 


uector^ 


XERMAL 5TQT 












CIF5EDJ 


1 GET IH 


S03E^ 


-033E 


51E-511 


uectar i 


KE5?N«L BEttN 












c*F13E> 


1 CLALL. 


5033C 


-0.^?:l 


S13'-ei3 


UlCtCT : 


KERNrL CLALL 












CIF33F> 


U5T?ChlD 


B033E 


-033F 


814*915 


Wecter : 


4*AHM start 












C»FE55> 


3 LDfiC 


10330 


-E331 


B1B-B17 


yectcr : 


KERNflL L3AD 












(5F4A&> 


3SfiUE 


S0333 


-E333 


B1B-B13 


Uector : 


KERMAL 5AU£ 












C 5FSED1 




IB134 


-E33B 


022037 


Jnused 




rHUrr tR 


S333E 


-03FB 


□CD 1013 


Tape header buffer 




503 FC 


-3 3FF 


i i 3iT<i_ : ffls 1 ! 

iBc@ 10cj 


Unuaed. 




U] CSCN 


5SJ40E 


-07E7 




Screen 


HAM 




=07 EB 




?B24-303S 


Unuaed 






107FB 


-07 FF 


■504 E — i?ft-t 7 


Sprite 


lilock data pointers 




iaB03 


-9FFF 


204a-4ErSS9 


KJ— i J 

BASIC RAM CTX7TAE-13 




4n00£- 


9FFF 


33766-48953 


Alternate: RDM plug-" in area 




SftE00- 


BFFF 


40S50-4315I 


Basic HDfl /Alternate RAM 






CFFF 


43153-S3347 


RAM mamdr-y 








53E4B-S3354 


UiC chip registers CE56E3 










/Character set 




SD0EF- 


D3FF 


B339B-S4071 


Lrnuaed/CherBctar r.flt 




5.D400- 


D.41C 


54373 '54330 


5]B chi 


p [55B1 3/Character 










■~ ™ : J" 






SD41D- 


D4FF 


543-31 -5«SS7* 


UnueedvCharecter pet 




SSEE0 - 


□7FF 


54526-553-95 


BED images/ Character set 




¥□500- 


DBFF 


553S6-5B315 


CuluLr 


nybble memory 



/Character set 
5DC0E-HCBF SB3E0-5B335 CIA 1 Inter Fact IRQ C ESSE 5 

/Character est 
a nc IB -DE FF 5E335-5657S Unused/ Ehar act Er set 
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fiDDflfl-QMF 5GG76-5&Sgi Gift 2 EnterFaca NM£ £&S2G> 

/Character sot 
SED1B-DDFF SBSSfi-S^S 1 *? UnLrHad/Cnaract cr sot 
SEaGD-Ff&e E^S^-GGiBfi KE3KRL rahVftflrl memory 
iFFBl-FFPG GS4B3-GSS25 KERMAL Jurf-p table/ HAH 

nemDryi 



tlEMDRY MAP DF THE CD^dZJE'RE 1EB 



LABEL 




"BEE [HAL 


[JE5CREPT10N 


DB510 


£■ OH. Li 




0 


5510 nirectinn register 


RG510 


X 1 *. <J ill 1 




1 


GG10 ] /□ , lemcrij: and tape 


BANK 




■00E T 


i?-4 


Jump CAll Far 5¥3 


FREE 


$E335 




5 


. F register Far 5V3 


ARE5 


■* D1 !■ ' • 




& 


.A ragi=-£.H- Far 3YS 


KREG 






7 


.X r&alstar For 5Y5 


y REE 






G 


-Y register for SYS 


57KPTR 


r>ij L.-t'_l 




a 


Search charactor 


ENDCHH 


5000fl 




10 


String anan-quD'Hi Flag 


TRMFD5 


■T C- O tl 




li 


TAB r.aluren 


U-EKCK 


10 SEC 




xa 


Flag: LEMD*B ( UEHIFY-i 


i.::uni 


ipggn. 




13 


Enput buFFec pointer/ 










tt S"jUscri.Dts 


□rnf La 






1H 


BeFault DEM FlSQ: dBr3i^lt-fl 


UAL7YP 






IS 


Data tupe: strin(j-SSS h 










ni,im8TlC-* 


INTFLG 






ie 


Nuimnrin nr. rn typo: 










f 1 nat i ng-0 , i ntager- 1 26 


GAPEFL 


■BB1 ' 




17 


BATR 3can/L]ST quota-/ 










□arba£e Cnlieict Flag 


SLIBFLG 


s ] h 






5uDSGC ipiT./FN Flaa 


INPFLG 






19 


FlBQ : 3NPU7-0, BET-54, 










RE«D-iSS 




1 H 




E>fl 


IAN sagn/cnmpariaan 










reaa-ult 


EUAMNL 


satj 1 5 




&1 


Current ]/□ channel 


linkum 




-0B1 7 




(ntegor ualLi« 


7EHPF7 


taeia 






Pni-itnr- t.-tzmp string cta:lc 


LAS7PT 


¥0013 


-0B1A 


2-l l"-: 


Last trrr.p a.tring address 


TEMPSI 


90015 


-0023 


?7-3S 


Stack Far temp strings 


ENDEX 


¥0024 


0G2 7 


3G-3B 


UtiiiLty pnirtcr arRi 


RE5KD 


5002B 


0OE-Z 


-a M-l 


Prnduct area Far 










mu lti.pl icat inr\ 


TKTTAB 


5302G 


-002E 


4 5--4B 


Painter start af BA3EC 


"JARTAB 


I002F- 


;:;:!.: 


4:7-48 


Pointer -stert oF variables 


ARYTAB 


4^031 


0032 


49-G0 


Pqintflr atart or errayi* 


5T?E\G 


£0013 


0B3'L 


51 C: :"! 


Pnintar and af arrays *1 


FRETDP 


*3035 


-0035 


53"54 


Painter tattcmi dF string's 


FPE5PC 


E0037 




55-5E 


Utility string- painter 


raxntni 


1-3035 


-003* 


57-5B 


Painter, bap af Bank 1 










stOL-acre 


E^iRLJh 




-0B3C 


59-&E" 


Currant BASIC line number 


UtTPTR 


= .-.: J . : 


-3*3L" 


61-62 


Current Duta oF BfiSIC text 


FNIIFM 


1003F 




E3-Gt 


Painter: itsfli found by 










jiegrch 


ESATLl^! 


■ 00 l tl 


0£ t2 


fiG-GS 


Currant BfiTfl Una 


DflTPTK 




■U044 


B7-6B 


Current DATA address 


]^FF7R 


10045 


G£-iG 


D3 72 


InPuT routine ucctcr 


JAFIsAII 


£0347- 


■B04B 


71-72 


Poj-ntar : ccirrent variable 










:idrrti 


UflRPNT 


£3049 




73-74 


Pointer: current variable 










data 


"DRFNT 


1304 B 


-00tC 


7f] :g 


Painter: variable For 










FDR /NEXT 


□FPTK 


Sa04D 


-004 E 


7 7-7B 


Operator table 










displacement 




5E04F 




75 


Combarlson sgmbol 










accumulator 


DEFPNT 




-0051 




Pointer? current Th 










d-egcr iptor 






-0Bb4 




Polnrter; current string 










diiscr iptar 


XELFER 


mi y.j.ii 




GG 


Flag: XELP/L2ST 


JnPIEf 


IB'.';'-'-':- 


-005?' 




SS02 JnP to function 








aa-99 


Tamp data area far strings 


FJKZtKP 


n i-Ti rJh C 1 
. ■ i. : : ■ 




39 


PACil - exponent 


FACHC 


t"Z 064 


- aoG7 


10E-103 


FACii - mantissa 


FflCSGH 






104 


FftCKl - sign 


51/* FIG 


$3369 




135 


Pointer: aeries avatuattan 










arinRtam: 


ARB EXP 


t&aGA 






FACi2 - exponent 


ARQHD 


1Q0GB 


-00GE 


107- il0 


FAC*2 - mantissa 


ARlBSCN 


teasF 




111 


FAC*2 - sign 


AR ESGN 






IIS 


rflClW*2 Sign cpmpar J.5tqn 










result 


FflCQu 


sa&n 




113 


.HI - leu order rounding 


FBUFF7 


1307? 


-007 3 


114:-115 


Painter: caaeette buffer 


ALJTENC 


S0B-74 


-M75 


11&-117 


]nere*.ent value For flUTD 


FIDFLAG 


SP07& 




116 


Graphics area sat flag 












N02E 


SR33V-7 




119 


Spritn tenp/jnrn counter 










for USJNe 


HuLP 


10376 




12A 


Counter 


SYNThP 


13073 






Temp for indirect load a 


H5EE5C 


I0B7A 


-B07C 


122 12'i 


Painter. B5S descriptor 


tes 


5007D 


-007 E 


125-126 


Pointer: top or run-tlae 










Stack- 


Huunoc 


■ *0fl?F 




1?7 


Flag: prc-gran /direct mddes 


PAHS7S 


S00BB 




}EB 


Disk cc-nmar-d syntax cheuk 


FARSTX 


teasi 




125 


Bisk comiMind syntax Clhach 


DLD57K 


EOOEE 




130 


COLSEL 


I33H3 




li". 


Currant colour 


r*JLT 11 


S00B4 




132 


nultl colour 1 


riuLri2 


s&aGG 






Jlilticnicur 2 


F3RCSB 


EO0GG 




134: 


Bit map Foreground CBlOUff 


GChLIX 


i&aa? 


-a0G9 


13S-13E 


Scale factor % 


SCALE V 


I00B5 


00QA 


137-13H 


Scale F aotOL Y 



57QPNB 


4 30GB 








Flag: Stop pai.nL 


UIEMP 


S009C- 




133- 


143 


Temp data area 


STfllUS 


9hB090 




144 




Kernel E/D status <S7? 




¥0051 




145 




5TDP key/RUS key awitsh 


5U5^ 7 


¥E332 




146 




Timlfig -CQiriBtant For tape 


UERCK 


sOlLv-'J.J 




14? - 




r 1 ag r LunD "0 . UjLP . F V ■ . 


C3FD 


$0354 




146 




Flag: Serial jls data 












f lag- 


BSOUR 


5P395 




lt9 




Serial bus: character for 












output 


Synd 


50336 




150 




EOT tape Signal rs-caivad 




sass? 








S*g 1 st or save 


LDT UU 


HH 




152 




■•Ji.imhnr nF f : Les open/ File 












table jnrln-x 


BFLTN 


'120 3D 




153 




I npu t dav l c a ( def eu 1 L" 3 ) 


□FLTD 






". E.4 




Output device \deFaul"_-3"i 


PHT¥ 


f 0B5B 




155 




Tapa char parity 




5009C 




15B 




Flafl: tape buta received- 




S039D 




157 




BA53C rnoxae: Progr»m-a , 












Olrect-129 


PTR1 


! i ^ Z 




156 




Tape oass 1 error lag 


P7R2 


aaoo-F 




1G9 




pass 2 error lag 


ririE 


IBB i;; 


30A2 


lEO™ 


1B2 


Rea-i-time JiFFy clock 


-'•""!■ 


5-30fe3 




1 63 




serial bit count/EDt rieg 


B5DLIR1 


S03A4 




154 




Cycla count 


CN7UN 


S30AE 




165 




Tape su n c cauntdown/blt 












cou^it 


bufpnt 






IBS 




Pointer; tape 1/0 buffer 


tNB ET 


530ft7 




167 




ES£3£ input blt^/tapat u«nte 












Ldr/read count 5 


B ETQI 


E0ERQ 




1EB 




R3232 input bit count 












tape write ldr/read count 


RINCWE 


"500AS 




1B3 




Flag; start hit 


R1DATP 


5,B0AP» 




170 




■RSP3S ^nput oyte buffer/ 












tape ^ scpn/ counter /ldrD 


R tPRTY 


n H 




l 




R5232 input parity/ 












tape Currite ldr length/ read 












rhiir.ksumi 


5ALH 


t00f1C- 


B3AD 


172- 


173 


Pointer: tape buFFer/acrean 












scroll ina 


EALH 


¥00ftE- 


-&0AF 


174- 


175 


■npe program nnd. addrsss 


enpa 






176- 


177 


Tape timing constants 


: 




■&flB3 


17B- 


17B 


Pointer: start oF tape 












buf Fer 


BE ITS 


KOCB < 




1BB 




R9232 dut bit count '"tape 












timer enabled-1 


MXTB] r 


*00B5 




161 




R5232 next bit to sisndytapa 












EOT 


PCDATA 


«00BS 




1B2 




SS232 out byte buF Fer /read 












character error 


F*JLEW 


E0GB7 




1B3 




Current Filename Length 


LA 


S0BBB 




1B4 




Currant lapical File number 


5A 


S00B3 




165 




Currant second a ry address 


FA 


103 BA 




IBB 




Currant device number 




5303B-00BC 


167- 


166 


Potnter; filename address 


fil3Pfi7V 


?00Btl 




: HH 




&5S32 out parity/ tape read 












input Cher 


F5BLX 


%B<3BE 




130 




Blocks left for tapn 












raad.-'uir ita 


riYflH 


i&aR:- 




191 




Serial udrd our Fer 


CAS1 


laoca 




152 




Tape motor sensor 


STALJH 


«0BC1- 


■a0C2 


193- 


■134 


I/O a tart address 


rlEhUSS 


100C3- 


00E4 


135- 


1SB 


Kernel setup pcintifr-'tapB 












temp addresa 


BATA 


S0BCS 




15:7 




rape read-'write dat-n 


HA 


430LE 




196 




Bank Fcr L'JAj/^flu*:/ jEPJ fv 


FNBANK 


I0EZ7 




193 




Bank voiding file-name 












v «> i. n nn v 

( •■ rvnilK j 


H ; ri'i | F 


sasce- 


-WC9 


?0B- 


-201 


Pointer l P5232 input bur Fer 


RQEyF 


xb^ca- 


-00CB 


Sfll- 


232 


Painter: H5232 Cutput 












buFFer 


KEY7H1 


t0BCC 


S00EB 


2B4-2B5 


Pointer: keu beard table 


TrlPAHrl 


1B0CE- 


S0e:~ 


23B- 


207 


Pointer: String for Vernal 












pfilm 


NDV 


MOD0 




206 




Index to knyhoard. buffer 




-E00B1 




209 




Flagr Function Jcoypress 


KEVIDX 


53002 




210 




] r dex td furrtCtlOn keu 












string 


SHFLQ 


S03B1 




5tl 




Flag; SHEFT*!, EBH-2, 












C7RL*4 




S0EB4 




212 




Currant key pressed 












64 -no key 


LSTX 


*0»OG 




213 




Last key pressed 


CRSu 


tMDG 




214 




Flag: 3NPU7 frcm snrfirrr nr 












(jEL rrom kay caar □ 


riCBE 


I00B7 




215 




Flag: 40/oB columns 












a~40 columns 


□."■^P.-.h 


S30DB 




21S 




Currert GRAPH SC mDdB 


GHAREN 


S0PO9 




Pi 7 




Flap: U]C FeiC^ f'rnrr 












HDn/SPfl 




50PDA- 






-223 


ProyrammablB keu vanat-cs 


PNT 


saeta 


-0BE1 


224-225 


Pointer- acre-an ] me 


USER 


S00E2- 


aai3 


226-227 


Pointer: current cursor 












colour Rah location 


SEFQP 


■00E4 




229 




Ir. p \ : nn cf uindoij 


SCBD7 


S0BES 




229 




Battam line of umdL j 


SCLP 


E0OE8 




230 




Left raw af uindou- 


SCAT 


S0BE7 




S31 




Right rou oF uindOm 


LS £P 


S00ES 




232 




jnpui start column 


E.STP 


f 0BE9 




233 




tNFDT start line 


imx 


S00E1 




234 




1NPU7 end lln» 


7BLS 


S0BEB 




235 




Cursov rou 


FHFR 


S00EC 




235 




Cursor column 


LINE5 


*0BE3 




237 




Ha* j mum number of screen 


i:::i.lii-'H 


EMBKK 




S3Q 




lines 

hate i mum number dF screen 












coluoins 




5fl0EF 




239 




Current character For 












printing 


L5TCHR 


1130^0 




E40 




Previous character 












printed fESC test> 


COLOR 






SHI 




Current character cOlduf 
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TCDL-3R 


*00F3 


54S 


5fly«d Character cdlaur far 
ENST/DEL 


INCINE 


*a3C&-03C9 


550- 3GB 


■»3 KJ Lr L UULLT1D. L C LCJ1 : Plilf. A , 

1 no j r Bet 


RU3 


SE0F3 


34 3 


K.iAfl- RU5 character-B 








ji_ a rn. . ■.. j. rig . fc £._cn LA J I LK 


DT5W 






0-nff l-an 








■ nrt i ^ d i~ ■ +■ 

.2.TIU1 j. rvet 


*B0F4 


£4,1 


Flag: 1-quntES mndH g»n 










S00F5 




0-tiJit made 




403D3-83O4 


37S-3B3 


F L nat l nn nri i r-" ■— r ■ +■ <■ n h 


B45 


Number dF inaorts 








Proa f?0M 


INSFLG 


*Q0FiB 


549 


□ut-atanding 


CUfiHA 


I03D5 


9B1 


San,!/ fnr PF FTC / PfllCir /qv^ 


Flay; AuLd- j.n2Strr t rr^adef 


TMPD.ES 


I&306 


59E 


r Fmn m rH f 1-1,1- 1 W^Tfr 


LOCKS 




547 


FLflg: SHIFT ur CB^ prcsafrd 


F1NHNK 


I03Dn 


995 


Bank far atr ing-nueber 


SCEDLL 


E00P9 


549 


5Craa-l BCrbll disablo 








uu. ivdi aiu 1 1 










3AUS [ Z 


S03TJB-03DE 


!H H ■' - !H H?M 


Temp area fur 55HAFE 


BFEPET? 


T00F3 


3h9 


CTPL-G disable 


B] TS 


S03DF 


991 


m Li f J. Lj VOl L ± l_! LL 1 U ± H a 


FREXIP 


S30FA-00FF 


asan-siss 


Ftb^ xmrr. pagfl ari33 


5FRTNF 


S03E0-03FF 


393-1033 


tainn a - Ha f rir ^PF?^fiL 


FBuPPEP 


I0100-010F 


5SE~571 


Filename canstrur.tinn nrnn 


U3CSCN 


5040B-07E7 


1BE4-E0E3 


40 column acreen memory 


XCNT 


s:-!1ie: 


E7E 


C33 Innp cnunter 


SPRPTfi 


I07E9-fl7FF 


EE54-5047 


3 fir i. to pointers 


□□5F1L 


is: 1 l 


573 


L&n^th dF DD3 Filcnamn 1 


SL^STK 


SaHliil-BHKr 


504B-5553 


BASIC pseudo etack 


DuSDSl 


50113 


E?4 


First drive number 


5UECT 


SDA0D-0AB1 


a5G0-SS61 


Uector: rea-t&rt ±yatem 


DD5F1A 


40113-0U4 


£75-576 


ftddreaa oF DD5 filename 1 


DEJAUU 


S0AQE 


3?9&? 


Uarm/cold etert atatura 


OQ5F5L 


S011B 


37? 


LenQtJi of DDS Filename 5 


FALNT5 


■J3A02 


29G3 


Flag: PAL/NTSC 


□dsdse 


101 IB 


37B 


Second drive number 


iNITrTT 


±0Oti4 


E5B4 


Flac- Reant u*s NFli" Fyvt 1 


□□5F5A 


10117-0119 


379-390 


Address or D95 Fllsnama E 








iritiali tid t. l on 


M90FL 


50113-011 A 


EBi-EBB 


Start addroBE f"nr 
CLI=i3.'-DDRL.'E 


riEJISTR 


'J .: ' , 


B555-E5ES 


Bottom of aystam bank 
m^mQCu 




501LH-BL1C 


5B3-EB4 


End address Far B9AUE 




B0Afl7~0f10B 


□BE7-3ESG 


Top oF S u a t & ft bank memory 


□D51A 


S011TJ 


£3-5 


UC5 lSQiCal fil« number 


EHQTEriP 


5BA0S-0A0P 


3B99-3S70 


Temp etc re For 3 RQ vector 


DCJSFA 


S01IE 


336 


TJD5 device rumba r 








during tape \/0 


DD35A 


S011F 


39? 


DG5 secondary address 


EASTON 


£0A3B 


5S71 


T03 5aTirn riurtner t anp nna 

l L|u — ■ *J ■ i— u h i iy i. 1 u pj 1 lj LJ^rD 


BQSRCL 




58S 


TJD5 retard length 


STUPID 


£LSfl0C>0A0D 


55 7^-9573 


Tape reed temps 


□DSBNK 




?ag 


□□5 bank number 


TlflDUT 


S0A0E 


3£?4 


Serial bus timn aut flag 


□□3D 11] 


B0 132 -01 53 


£30-531 


CDS Identifier 


ENflHL 


S-3A 0F 




B5535 enable CfonO 


D2TJCHK 


SBi ?■! 


335 


DOS did riao 








interrupt eontrcjl 


BNR 




533 


Fninteir . U5ENG begin nymiRr 


riSlCTR 


¥0410 


E57G 


-^rl^cf CO<"itral e t^ib'.a: 


ENS 


ioise 


£34 


FointerL USINB and numbor 








iBejoei 


OOLfi 


S0157 


EBB 


Flag; US1MG dDilar 




$0fil 1 


E577 


JiS33£ command register 


FLAG 


E01EB 


EBB 


Flag; USCNS contna 








image 


SiiU'j 


5013S 


597 


uBCnG counter 


HBlflJB 


S0fiie-iA13 


E579-E57S 


J? S 5 3 3 no n — standard b 9 U d 


uSGm 


5015* 


53B 


Ljign cxpnnnnt 








rate 


UEXP 


It.".. J H 


E9B 


Pa i nt er : e y.~DC rent 


RSSTAT 


SBftl 4 


E5D0 


RS535 statue reyi^Ler 


UN 


*0l£C 


300 


Nunber uf digits bofnrB 








l*efle 








decimal point 


BIThUM 




E5B1 


HS333 bits left to s*nd 


CK5N 


S015I] 


301 


Using justlfu Flag 


BftUTJDF 


10Aig-0A^7 


&S6E-55B3 


R5E35 baud rate 


Uf 


131 EE 


333 


Number or Field characters 


RIDBE 


tenia 


2594 


R5E35 index to end lVF input 








hgrore decimal point 








buffer 


NF 


$015F 


303 


humbar nf Fln-id dec 1 "el 
glares 


Rl DBS 


5PA19 


E5B3 


R9333 page number of Start 
of Input Puffer 


P!.:hk 


SO130 


301 


Flag 1 in USIWG field 


-RDDQ9 


areaifi 


E59B 


RG233 pagn numr.nr n[' st?rt 


FESP 




333 


Flag: uGlNG dxponant 








of output buffer 


F.TOF 




30& 


Switch 


HQDBE 


¥3Alb 


E5B7 


R9333 in^ex to Bntl nF 


CFQEh 


*£l Hi 


307 


Field enaratter counter 








Output buFfer 


5MD 




30B 


StQn number 


SERIAL 


33A1H 


3569 


Flag: Fast aerial 


ELFTJ 


*ei35 


309 


Flag: nlnn"-. rir aateris^ 








inter nal/ external op 


BFBFTJ 


S0136 


310 


Pointer: bag inning at fleidi 


TlnEP 


50A1D-0P1F 


5389-3531 


decrement ing jlFFy regieter 


L.FflK 


WL37 


311 


length dF format 




5E«E0 


£533 


9jtr of keuboard buffer 


ENEJFO 


$0135 


315 


Fain tar: end nF fj.ald 


PHUSlv 


S0AE1 


5333 


Flag; CTPL-5 


STACK 


!*i39-01FF 


313-511 


5wstam stack 


RFTFLG 




5554 


Repeat ket, fLag: default-0, 




S0E00-0B5B 


51E-S00 


System input buFf er for 
BAB IE and MDhFCTDP 








repeat all -139, 
no repeats-GH. 


FETCH 


SB3A3 


&?4 


Subroutine: LTJA( from 


KDUtfT 


S0P33 


3595 


Repeat apeed counter 








anu Ear-k 


BELAY 


S0A3H 


3599 


Repeet u£l£y counter 


5TASHC 


tflSfiF 




Subroutine: STA( 5 P ¥ to. 


L3T5HF 


10H3B 




Last shift pettarn flag 








any laanJe 


BLNON 


50AE5 


E99B 


flag- ulC cursor blink 


CHFARE 


USEE 


7 33 


BubroutiTiB: CnP< >,y in 


BLN5U 


S0R37 


,->H*A 


UtC cursor blink enable 








iir j ^3 n k 


BLNCT 


10A3B 


rh\m 


U1C cursor blink tiner 


JSBFPR 


B0SCD 


717 


J5R to any hank 


S0&LN 


*E'^E3 


3BQ1 


urc cberacter under uuraur 


■jnPFrtR 


S0EE3 


733 


JhF to any bank 


60CQL 


S0AE4 


EG03 


u3C becKground colour under 


EC&NCH 


5fl30C-03BTJ 


790-791 


Uec tor : BA3CC crunch tntcnrn 








cursor 


IDPLQF 


t03iie:-030f 


7BE-7B3 


Mautor: LIST 


CURflQD 


£0A3Q 


?6B3 


UBC active cursor mode 


11UAL 


10 310-03U 




Uector : executa nDtik 


uni 


&0A3E 


r : = :H 


U1E text screen start page 


IECME 


£0312-0313 


786-797 


Usctor ; EAr5 [C c!haractar 


uriE 


S0HEB 


3G&9 


ujx bit map start pane 








dna-patch 


una 


SBAEE 


3GQG 


uOc te^t screen base 


I [fiO 


SS314-0315 


799-7 39 


yector i Hardware IRQ 


unn 


50A5F 


5S07 


uDC colour map 


IBBK 


*03lG-03l7 


790-731 


Uectcr : BRK interrjpt 


LlWThP 


54A30 


EB0B 


Tann nnintnr Fnn 1 nnP 


[NHI 


S3 31 G 1-0 3 If! 


792-793 


uectar; NHI 


SAUBfl 


10A31-DA34 


5505-5E1E 


Temp data for UBC screen 


I OPEN 


S031A-031B 


794-795 


uector; k£Rnal 0P£n 








handling 


[CLD5E 


I331L" 0310 


79G-797 


uvctor; XERMAL CLOSE 


QJRCDL 


S0A3E 


r^n"! -; 


ULUL! Colour under cursor 


ECHKIiM 


*031E £31F 


79B-799 


Uactor: KERNAL CHk[N 


SPL3T 


S0A3E 


3B1H 


^IC split screen raster 


tCKOUT 


i03B3-0351 


000 301 


Unctarr XIRNfiL CHfcDUT 










1CLRCH 


E&3EE-03E3 


BB5-BE3 


Uactor: KEHNAL CLROEN 


FNfiDR^ 


■50A37 


5615 


"X. r en l star saua f"nr 4antr 

■ ■ . — \jj - l_ L . 1 an - I I .1.1. ".w ' — " 


IBnSlN 


50354-0355 


904-905 


Uactor: KERNAL CMRCN 








<a ps 


] DSQuT 


S#"3EE-03E7 


BB6-BB7 


Lhactor: KEJZNAL CHRQU7 


PALCHT 


S0A39 


55 IB 


Jiffy adjustment for PAL 


] BTCF 


S032B-e339 


S0&-909 1 


UactQC-: KERNAL STOP 








ey stem 


I GET IN 




910-91 1 


Uecter : KEHNRL BET IN 


XCNT 


£0n90-0A9F 




nj_n compare bu*Ff er 


TCLALL 


1033C-0 33D 


913-913 


Uector: KERNAL CLfiLL 




4 3flA£ ann.n 


37S0-373& 


HLii temp date 


EJthON 


S035E-035F 


81 4-81 B 


Unctor. indirect monitor 
commandsi 


LENGTH 


I0PAB 
10AAE-0AB1 


2731 

5733-3737 


Flag: Aeeernble -^d i aaaaemb 1 e 

Tnrn nl ""1 ' l i 


IIQAD 


33 330-0331 


B16-B17 


UeOtOr; KE.RNOL L.QAD 


KSAU 


£g.PBE 


5739 


¥ qnuin cL lit* inn inriir n-." t 


1 5 WE 


Sti.l.V-LV-i-M 


919-913 


UeL'_ur. KERNAL SAUE 








eubrout 1 n e oal Is 


CTLUEC 


S0334-0339 


950-951 


Uector: CTRL code link 


DIRETN 


X0RB3 


3739 


n 1 rarf 1 nn I rtrt i f^tktfir*- Frhr- 

U ^ hi DL L 1 UT 1 J. L ILI J- □ LJ L L l_l L 


5HFUEC 


403 36- &AAV 


B33-BE3 


Uector: 5H]FT code link 








trenefer 


E5WEC 


S0339 0339 


334- 339 


Uector: ESC sequence link 


TEHP3 


S0PB4-DASF 


3740-3791 




k£yuec 


SB33A-033B 


B3E-B37 


uetctor : ke^ecan Cindireet> 


CURIAM 


10ACQ 


5755 


Furcticn ' tc 'd SCfl tank Semg 


KEYCHK 


I033C-033TJ 


33B-B39 


upnjcor • store kau^rase 








pol led 


DECODE 


S-flSSE-OSSF 


B33-B31 


Uactor: keyboard decode 


PAT 


se^iCl-0AFF 


a7S3-?ei5 


Table oF logged EDM oarda 








tables 


TBUFFft 


•50BB0-0BBF 


5B1B-3007 


Tope buffer 




*0340-0M 


93E-B41 






5-3BC0-0BFF 


3B0B-3071 


TJlak boot, page 


KEYTJ 


i.0.34A-0353 


HH ? -Hb ; 


K Bu&oa rd buff a r 


PS535I 


I0C30-0CFF 


3072-3337 


PS53P input buffer 


TABtlAF 


S0354-035D 


853-361 


Blt map TAB Stops 


PSS3EC- 


E0BC3-0CFF 


333B-3BB3 


R3333 output buffer 


G1TA3L 


5-H35E-J23B1 


BBE'-BBS 


9cre*n line linn table 




50E00-EFFF 


3SB4-4B35 


Free spare 


LAT 


t03G3-&3SB 


66S-675 


Logical file table 


PKTBUF 


51003-1003 


l i03B-4105 


Function key String lengthe 


FAT 




H V H -97 7 


r~l □ n 1 ■ r- O 1 inhilr- k 4 k | a 

UbvILe lL - — UfciC CaOjLB 








table 


SAT 


S03EE-037F 


8?9-995 


Secondary address table 


FKYDEF 


El0efl-1CFF 


tl0&-4351 


Function key deFinltion 1 


CHRSET 


5 3390~3 33E 


B3€-B3fi 


Subroutlna; get next BASIC 
byte 




I1100-I10B 


4355-43S0 


table 

CP/n reset subroutine 


CHPSOT 


30395-033E 


90E-9E& 


Subroutine: get current 


XFD5 


11131-1133 


44&l-4 l «eE! 


Current pixel K position 








BASIC byte 


YPuS 


■1133-1134 


4H03-44-B4 


* Current pixel ¥ position 


IMDSB1 


*039F-83AA 


9E7-33& 


Subroutine: fetch Into 


XD£5T 


SI 135-1 13« 


4 439-4406 


* co-ordinate destination 








RAH 0 


YDE5T 


■I137-113B 


4H07-440B 


Y co-ordinate destj.net ion 


3NTJSB5 


*fl3AB-03ft& 


959-950 


Subroutine: Fetch, into 




*1139-113fl 


44 29-4410 


X position for DRAW 








f?An 1 


VA0S 


5113B-113C 


4411-4415 


V position for TJftAU 


JNTJIN1 


M3H7-03BF 


951 -9&9 


Subroutine: retch INDEX! 


K3GN 


S113C-113E 


4413-4414 


X paraneter sign 








mri : rnn- 


Y5DN 


I113F-11H0 


441S-441& 


Y parameter sign 
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X ll^tl - 


1 141 


■;•!. J 7 •■"IlIS 


1 1 i^a rl r Ehi.i 1 pin 1" tvnnn. 


COLTYP 


tiee& 4735 Collision interrupt tupe 


E DDL jAF 


i' 145 


1 1 IE 


4451 ~ L i L i E5 


rr .— ^ .-, '— . ■ j—i -r □ r— t- ,— , r- Lja ^ ■ ■ ■■■ 
L5L ■UJjnXC-itP DL 1 UL v^aljls 


uO [CE 


Sl?8l ^r%aice nufnbfif- For SOUND 


LE5SE R 


S 1 1 




4H53 


Gmpl-iiQES lE3"JBr m a [ ' k 1^ e ' 


T ] ^F.:.D 


Sl^QB-lB-B-M! 473H-**74.a SOUND time low djjtea 


RPFATF7 
i_i L i L.n j m 


¥11 46 




He?" 


Graphics yf*a.tfir f*arNBT 


TEHEHI 


S15B5-15H7 4741-47H3 5BUND tlrne hi fayt*e 




fl> 1 1 — — 




4 HlSS 


-J X LJ 1 C 1—1 L -D < 1 LJ JL Q 


FlftKLQ 


S15 


OB 15BA 4744-i745 SDJND 


■_- ; mi ini 


V 4Ti - 


t HE 


4'45E- 4:457 


1 1 V □ J KJ'S- hJX IB" 1 ^gj ■ 


hflXHS 


1136B-15BD 4747-47H3 5QUND 




"fill 4C - 


1 1HJJ 


4 *50 'e4i55 


C0S-l.ri6 ^flluB fiC' n - ipjifl 


F11NLD 


mi5BE-15S0 4750-475E SDUNO 


HNLrt«nl J 


si ]*4£- 






Tu-^a rnji pj T1 |-r 1 n — 1^ "i r-f-Tr-Bi 


rl I ivH I 


11531-1533 4753-1755 30LWD 










■ 1 ■•■ - 1 nDD 
k LJ La Ls ± 1 Q SI 


□ ] RCTr* 


3153-fc 133G '-75E-475B SOUND difBCtiOn tflble 


JCC] rcl 


Sll&fl- 


11S1 


4*t3£" J *4:33 


CIRCLE neritro 5C pns/BDX 


STEPLC 


I13S7 1535 47 53-4761 SDL*IB Btep gfilb«Bs low Pjte 










3]LJjC.TlL JL A 






table 


YG I RCL 


"Sl 155- 


1 153 




CIPCLf nontrfl V □□ls/BQX 


STEPHI 


S123A-153E 4755-4764 SGUKB Slap yaluBB ht tUtfl 










nns nt 1l Y 






table 


5TP/52 


Sl 153 




4H 35 


Siapa LstriHQ length 


FftEQLO 


S1e:3D-159F 47&S-4?G7 SOU^B frncuancy values lo- 


SRfiBULr 


11154- 


1 155 


H43E-44 3 7 


CIRCLE X fBdiua/BDJiC 






byte table 










L LJ L □ L. ± LJT* -d ■y JLC? 


r P. — La n L 


tia , fl0-'15A5 47EB-4770 5GUND Frequency valuaa hl- 


GET T VP 


■Ei IEh 




44:35 


RaplBGO 3l~iflpB modfl 






byite table 


ST RFTR 


ij. 




4:437 


lt 4- p. 1 j-, .-1 nrifi ¥ 1 n r"i rni in1" 


TtriE 


B15R3 13A4 4771-4775 Duration For 5DUMD 


YRftDtlS 


V 1 i HLj 


1 157 


J C — 1 r — 1 I E J J 


u L p L u u 4 L '.*■ J — 1 




S13fl5-153e 477 3-4794 .Temps for SOUND 


i DLGBYT 


11* 5G 




-&43G 


Dili Ti 1 t man h. 1- r> 


POTTfiP 


B15B1-15B5 l?eS-479S' Te«p mtora for lightpan 




All 5? ~ 


1 135 


4t33 — 444P 


Mi^lli Ej t _ i n ehe~ oil mu e3 !Du l^B 






ca - or dmo "_es 


nU 1 rind 


^- ' ' laS ■ 


1 159 


H 44lfl - 4:44 1 


ClrclB rntatinn jstieJI'B 




115B7-13FF 1731-45B3 5PR5PL=/SFFTBEF Btorsge 


K'3 1 ZE 


£11 —• 5 - 


1 1 IS^ 


LLigii i lxullS 

~n 1 7nc 


S: h vj n EZGlumrr 1 c i " ^ t ^ "• 








BDJ< L£N 


111 SA- 




■S'L'JE "L'J'jj 


JJILJJh ± t— LJ "fc-J 1 LJfc U Er JiwV 








TS 1 £ Ci 


9-1 1 3Q. 




Tl ™ ™ .^tt 


_nauC L i-KU ± □ 1 1 Lj: L I r 










11 . r: . . - 




U j. 4,u 14u.Ll.El 


ni L ■OTILT X lj _■ Lj L 










5 ' L 5E 


1 15F 


• 11,.- - ~ 


rVp- a nn la d nri 

rlL U £3 ■ ■■„; ± "IT □ 1 M_k 






CGhrlDGDRE 136 nEHDRV PUERUIKJ 


b L 3f RU K 


311 5F - 


1 1 EQ 


■ 11..-? 1. .li 1 a 


5aVe? 'BTlBP'B StriTlQ" 
















□ orSt;^ 1 P l -- j l 








v pr'ne 


•XT'! 1 Rfl- 




44.4 5-4.4.113 


.■h L {lu 1 J S l-LJ^J ^ □ 1 1LJ i.O j 


HEX 


DECIhftL DESCRIPTION 


B t T 1 Dtf 
PL U UA 


a . in. 




4449 


Ri ^ i ril" rs nii1"fl 






YR 5 [ N 


1 1 J S5 - 


1 1B3 


- t5C 1 i4 5 " 


V rat* i i -s * S [ N ( nnrr 1 h 1 

T L QU JL L J Jim aiiLj in ^ 


S0M0- 




0- 4952 BASIE LubrkSpaoe 


X PS I W 


9 1 1 64 ~ 


1 1 G5 


44 53 ~4453 


X r?ir1 j .js • 5 1 N ■! aifj IcJ !' 




AAEB 15364-44383 BASCC POn 


YREQS 


1, | ■ Zjtji - 


1 1 57 


- t -, l '-i -- - 


Y rnr.n.n * EQ3C ontrlB J 


SAP5E- 


ftEFF H493 0-4H?S3 Eapty RDtl space 


Lin rrj^riL* 


5L 1 6B 




44 Kri 


High bytes oF chBrectsr RQn 


EWF0B- 


flfft? 4 1 <aa0-4 : 43€7 Bft3[C Jump table 












pe- 


AFFF 4;43&fi-45a55 Errpty ROM epase 


3 I TCNT 


¥ 1 1 53 




l i4:5i7 


Temp Far SSHftFE 


9B00D- 


BFFF 4505B-49151 riQN[TDR 


F l -1 

3LHLE. 1* 


II 1 fnfi 




4:45ft 


F 1 HEJ : LdCQilB fjflOd'B 


SC0B0- 


CFFF 43155-53547 Screen/key board rcutinea 


■"J LP L -n 


■M 1 Ifl 0 




}W~i 


FlaQ! U.L:_iljlB wid~h 


1B00B- 


B05E 5354B-53554 U]C chip Cas CB4 3 


B 1 1 FI f5 


11 1 6C 




4j4&& 


— 'i nr -| . Fill lTjflV 

- XC3LJ. L Jl JL ± LnJA 


IDBEF 


SBfaS 12S mnde a^tra keyboard lines 


BIT^ISK 


5 1 1 BD- 


USE 


^4:51- 1455 


rflmp/ h'Eiir bitnask 






tKEVLIN> 


TRCFLG 


Sil GF 




4463 


fi- t. racu aff , SBS-tr-nte OH 


BIIH-a 


53l?SB 156 mEsde s-gsten ClOCJf speed register 


REM Lift 


11170- 


1173 


44j64-44j6? 


rnmps for REMJflEER 


1B40&- 


D4.1C SW575-S43B0 SID Chip CBB C&l J 


UTEriP 


* 1 J 74 - 


1 179 


4499-4.473 


Graphics tVBWlp B-tQfBfle 


SB5G3 


54555 Hntl primary oon-Figuratian rd^iBter 


flORftYl 


S3 17ft- 


3 V ? ft 


1(474-^475 


Fla.g: tESnvaft FlDfitinij 


*B501 


54553 nnu Praconf j-guration regletBT ft 










point tc intfiQSr 


EB5C5 


5453V Mnu PraconFiguration rBglstor & 


l ATJRRYE 


1117C- 


1 17 B 


4t75-44i77 


F13Q: GDnryprt Intppja-r to 


5D503 


S1S31 nnu PraconFiguratior-. register C 










f 1 Oflt 1 r^g point 


BB5&H 


54:535 rinu PraconFig-uration register D 


2 DAT ft 


1 1 1 7 E - 


1 IBS 


44 7B-45G5 


5priT. r ipnriri and direction 


SBS05 


54S33 rlrlD mode conFlgurat ion ragister 










table 


IB50E 


54:534 riru RAfl configuration register 




f 1 1 C5 - 


11FF 


4556-460? 


Copg af V[C rngiatfifs 


S.E507 


54535 Paga 0 pointer lo 


OLDLTN 


11330- 


1501 


4G0B-4505 


-' ~ F •_• ! Tii . n :-irf: IC liriB 


SB52B 


54535 page & pointer ^1 


OLBTJCT 


i 1 5P3 - 


I r. 7- H 


4610-161 1 


BASIC statemant For CGNI 


SBS0S 


54B37 Pipe 1 pointer lo 


PUF3LL 


11504 




1615 


FU ] nyribol for- USING 


EBSE^ 


54535 FBge 1 pointer bj. 


pucanfl 


S1505 




4G13 


Comma symbol FDt - LH I Nti 


*C50E 


54533 hTIU vsreioni/resBL. register 


~" HOT 


J | ^0E 




1G11 


l"l n i - * i rr-n 1 nun i nt ^iin&lTirtl PfTir 

i.'.l . 1 ll.ia L p-I IL ~Jf U| 1 ! ■ Lj '_J ± l Ui 


1BEB& 


54764 UDC addrBBB register 










US] NG 


5D700 


55040 UDC data rE*gistar 


FUFIONY 


¥1507 




4SlS 


r " L !l a r / \ju _ nti ByrnbDl For 


SEQ00- 


FC3B 57344-64573 Kernel RGh 










USING 


SEC3E- 


FEFF 64574-55573 Unused RDM 


7- ft HHI ll"l 


5" ,-"c : H 




4&1S 


last ftf cor ^uTiter 


EFF00- 


FF45 65360-0535* "HU regxetars 


E RKL ] N 


21 1 CP? 


■ ■ **' ■ 


lic 1 7-nc 1 a 


1 m-i." M-*r'"i' 1 1 riA nLi(Til~-nr 


SFFH7- 


-FFF3 65351-55533 KBrnal Jump table 










LJ — r &J • i U I J 


SPFF4- 


FFFF 65554- B5535 Hardware vectors 


tc a pun 


&150E- 


12CK 




L l ns n'. i iT: 1" n r f nr TRAP 
















^c,i-;-pf f j 








1 nf L Kr 




1&BF 


ieci — Ttiis j 


_ "amp l ul i unr riurpuci. 








T w ft no 
] f. 1 i . . V 


Eis-ia- 


1511 


■a — "'■■J -1 L 1 " 


rDlnL.Br. LCP Us QH3 J L, t|Xt 










siaie- 


1213 


- T be / 


Pu i r^itflf : COP 3F bBTipr A 






USEFUL IftBIC 3NTERFP/ETE-I* flflDRESSES 










St OT-BCIB) 






TUPTXT 


11314- 


1217 


TOCO IDJl 


UU^L-LBJ-r ramp 








UBRPDK 


1151B- 


lElrl 


45 35-^634 


USR VBCtOr cadn 


C64 




DESCRE PTION DF RBUTJNE 


RNDK 


11 51 5- 


1S1F 


LLC TS — U U U 

iDJii 4Ddln 


EjAJ Tl r n»ri iju 1 ■ amm 

ITTN JU SB B □. W-Q 1 UD 




KEX 




CIRCLE 


S12GB 




1S40 


Dcgrctfa per cifirrle gegrrient 




BEJflUU 


i lE-f 1 




4Sll 


Cald/uaLTn raa-Bt S-CBt-L/B 




S4000 


StPTt wectnr 


TENFD 






ifiMlc? 


Tempo rate 






NMl vector 


UD 1 C ES 


■51-2 [33 J .-J^D 


U.C.L. q._ u c-40 

id .j lino 




5 300^ 




'CBrtBABEC 


NT [ME 




lEEfl 


454:3-4650 




BA&CC 


S46FC 


flddresaee of tne BASIC cemmarda minus 1 








4&5i? 




M055 


S47B5 


ftdctrBflBBS of the EfiSIE Functlonrfl 


P ] TCH 




I5E-E 






Bfl0B@ 




HlBrarchy-codes and addressee of the BflSlE 


UD] EE 


"5 1 EE F 




4.CZL. 1_ 








operators 


LUrVvJ E. 0 


±1230-1533 


1 L- Zi . 2 JD 




SR05E 


14417 


LiSL Of BftbU- romrrand "jjorda 


TJNDT E 


S1P33 








SftlSE 


B454B 


error siesaac^ea 


FLT^ftu 

. I . . 


IV:? 3'! V3J7 


LUL ha J -J -J ~' 




f«E54 




?1esaagea OF thB enslC intErpretar 


FLTFLG 


S1E3Q 




1664 


Temp a tor for jENUELOPE 


■ E ! ■ 1 . 


34 = nn 


Stack sBarc-h-COLting Tor FQR-NEXI and GG5UB 


NT Kfflf E 

14 J DDLb 


11539 






SA3BB 


17E65 


BlOOk-Shlf ting routina 












1P3FB 


14FFE 


Checks on spnoB in atatk 




SI 33ft 




4E5G 


Current ENVELOPE number 


Bfl40H 


S5«17 


Hakes 51 pace in memorui 


TDhMJAL 


S123B-153C 


4jGG7-4G53 


LjfrBPi" Ar:S ° nnE'. _avefu:T 






U:,.t-P'.cr. of 'Dut oF manor y ' 


rHHUli L 






4 570 


LiULil^El LLrt W ' 1 ^- •? LJ |r r_a 


B.P437 


S4B3C 


Output of error messages 










| . -: . r 1 I.I I I .1 


Ift4j53 


14Dft5 


Break vector 


ATKTAB 




-ISIS 


t u r 1 iaop 


£MUELi,0PE tack ,-' dtr^-ay taPlB 


SPHj 1 4 


S4C3j^ 


Ready vector 


- .' i — : l no 


aifHjg- 


1555 


.□□1 L '_' L 1 


F NUr. L. f! P£ Esust a i ~i/ re 1 aase 


*ft4:S0 


14DC3 


]nput waiting- loop 










table 


M43C 


S4BE5 


Clear and inserting prESgrftm lines 




E13E3- 


-135C 


JL Jl _ ■ Kl 1 f 


FMLiFl nPF inn tjftf r-rfri r nnJ n 

L-fMNr L.iL.LJn L. WairOi i#L 111 v ikjj ± u 


Sl^ ^ H Hi 


B4F4F 


Tie BASIC program li nas anew 


PULSLO 


SlBED- 


15EG 


41701 ■■•4-TI'n 

- s w ± L / ± kj 


Piri 40 lj 1 rl 1"Ti 1 ouj buta tab i b 
r l 1 j. 1 j. '_i -. 11 » ■ - j - L- ■ ■ ■ — - ■- 


i:- «r :: 


S4FS3 


Eats a line Into Input buffer 


FU" ^ H I 


11EE7- 


-1570 


4711—4 750 


PulBe Uiidthi high byte t.ablB 


LBA571 




Output of "String too long' 


F 1 LTRS 


*1£71- 


1375 




T jUPr .ii .!. . .......... 


snfl?9 


S432A 


Change oF a line Into interpreter -code 


TRFF LG 


51275-1C-73 


4 f CD 4 f CD 


L' 1 .-ir . • i-it- nr- 1-1 in*- '-!«■ nr 1 , 1 1 , , ,-■ 

r 1 njj!i : . nLnL7L^up_ n o n r _i i _ i > Lj 


XRE13 


15QB4 


Loak for start address of a BftSIC line 










t r 1 ppad 


SPfi45 


E51B5 


BA5] C-COnmanrJ NEU 


SSIKTL 


£13-79 




4753 


Lina For sprltB-spnt* 


EftH4r 




BASIC- commend CLR 










COlliSlQin [RO haridllng 


SftGSE 


15554 


Set program pointer to BhSIC start 










tip*) 


E^EBC 


158E5 


BftSEC-cammiTid LEST 


SQ1ML 


*l£7fl 




4730 


Lina for sprite-data 


*ft717 


■514E 


Change interpreter code to coa«nand word 










COlllBlari E RO handling 


1^74 3 


S5BF3 


BfiSJC-epmmand FBR 










tloul 


ffl7ftE 


SlflFB 


Interpreter loop, carries out B*SIC conmanda 


SFIttTL 


11G7B 




4731 


Ling for lightpan IRQ 


3fiTF4 


S4fiftF 


C KBCLtCB naxt B^SEC Stateaent 










hind 1 1 ng i lou 


9A7EB 


14B74 


Carries Out BPS EC command 


SSlffTM 


S1E7C 




Hvap 


Line for =pr i te-apei.te ERQ 


iftfllO 


BSFiE^ 


EPS 1 C-cor*"and RESTORE 










Chi ) 




S4BCJ. 


Entarrupts program Bt pressed stop-kay 


SB I NTH 


S157D 




4733 


tine For epnte-det* IRQ 


*ft55F 


S4EEB 


3&5 LC-COmajjnd STOP 










Chi) 


1^531 


S4BCC 


&flS3C-conmand ENB 


5PINTH 


■ 157E 




4734 


Line for ligbtpen IRO Chil 


ir :!.: 


BGnG2 


BftS I C-command C0NT 


ENTUflL 


51E7F 




173S 


colli 3i on BfiBbled 


*fl571 


*5P3E 


B^S] Ll-CC-flmarrd Rl+N 
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COMMODORE PROGRAMMING 



*ft393 
aflame 

EABEB 

% A9E3 
Ea-i.--r; 
TA93B 
ES34B 
SA9BB 
5A9A& 

BflflHS 

SAflAO 
Sfltn E 
EftB3E 

5C1H-:! 

■S&B7B 
*ABft9 
BAEBF 

1AC0S 
1ACFC 
SADIE 
■ABBA 

SAOBF 
SAB99 
EflriHK 
*£C3D 
SflEftB 
SAEB4 
$ftEFl 
*ftEF7 
SfllFA 
1AEFD 
SAEFF 
■AF0B 
SfiF3B 
SflFA7 
5 ft FEB 
s -i- : 

r-IB0Bl 

SB 303 
EB113 

iaiin 

EB1B5 
5B1E4 
SQir.': 
SB1AA 
EBlBe 

sbib? 

IB ID! 

21!"!': 
lB3*t9 

BB34C 
SE37D 
1B3B1 

IS539F. 

SBBAB 

SB3E3 

IB3F , j 
SB163 
*fi*7S 

SB4B7 
IB*P« 

SBB3B 
1BE7A 
SEBft3 
SB&OB 
EEBEG 
SB700 
IB73C 
IB737 
SB7BL 

EE -fl. ' 

1B7BB 

SHTfiO 

ic-god 

SEB34 
EBS3D 
SBB49 
SB050 
SBBS3 
5B9C7 
iBBSfl 
■ B947 
SHH/- 
BB9B3 

SKHrll* 

1B9ER 
5BA3B 
EBfiBB 
SBfifiC 
BBAB7 
5Bfl£3 
EBAF3 
SBAFE 
SSB07 
EB30F 
SBB13 
BBEBft 



S59CF BASJC-COmmsnd EDSUS 
S93DB BAS I C-command GOTO 
BSS6i? BflSEC-command RETURN 
*53BF EflSl C-command tJATft 
E93A3 Locks For nosit statement 

Looks for next line 
193C5 BAS I C-command IF 
*5SS0 BflSI c-command REti 
153A3 BftSIC-comeand On 

*53A0 Looks For address or a BASIC line 

I53CE Bfl5]C-com*and LET 

S593A BASZC-commard PRINT* 

¥5540 BASIC -command CMD 

fSSBn flflfi EC-CDfnmgnd TRENT 

55SE3 Output string 

. Output empty character (Or cursor right J 
55740 Eftor handling for ]fcPuT 

SftS [C-command BET 
SES4B BflSJ C-COmnond [NFUT* 
*55S3 BASIC-oOmwand INFUT 
sse9C Print IHPUT prompt and handle input 
i5G*9 BftSLC-comwand RFftU 

Output J ?sxtra ignored' gn-d ' + redo from start' 
457F4 BftSIC-comwand NEKT 
17707 Evaluate n_mer lc exprcssa nn 
i7 7Ufl Checks on numeric 
177DQ Checks on string 

Output dP '7gps misBfltr.h" 
sttef Evaluate ixpf a^ixciTi 
*79E7 Get arithmetic ter» 
S7BFE Floating paint constant for PI 
17930 BflS [C- command .NOT 
17390 Gats term in par#ant hfini k 
E795C Checks on parnnt^inni r« cJLo5€£ 
S7B5B Cheeks Pn parenthesis open 
S79E-C Checks on comn* 

3795£ Checks on characters in accumulator 

*79EC OLtput of r synt&* error" 

I737B Gets vnriahln 

54BF7 sat up reFerencea- 

I4CBB BAS [C ■ zommand Bfi 

54ES3 BftSlC-CDWnartd AND 

B4CBB Coapaneon opefations 

SE.B7B Bflftl C -command Dlh- 

■7AAF Saarch for or create "enable descriptor 

Checks for letter 
S7B4£ Create new 7 byte descriptor 
*7BiA Return addres-s of vnr mbLr; 

Calculates pointer to First ar ray-elanant 
sS43fi Fiostlrifl point constant -3376B 
■943F Change FAC to !NT£G£H 

SB4A7 Input and convert floating to integer 

Bfl4-K4 Fftrj integer 

s/CflB Search fcr of create arre^ 

*?0?S Output of "Bad eubecrlpf 

%?QS& Output of " SllBflel-quantltg" 

CelcLlates array m?r. 
53000 BAB SC- function FfiE. 
SBC7Q Inteyer to FftC 
H4DD BA5!C- Function POS 
sS4B3 Checks on direct-mode 

Output of 'Illegal direct' 
Cvitput DF "UndBF'd Function)' 
BASEC-comrwind. S£P~ 
Checks en FW Syntax 
fiflfi LC-f unction FN 
BASIC Function SIRS 

String administration, calculate pointer on 
str J; Tig 

Establish string 
Allocate atring memory space 

Barbaos collect ion, remove unwanted ptringq 
Is current String highest in ■nemeryT 
Str i ng cenca tena te *4\ 
Transifflr string tc msaoru 
String adminisstration f RESTR 
Oslete entry From tsmp string sta-lr 
BA91C -function CHRI 
BASIC- Function LEFTS 
BfiSlC -function R[0H7f 
EftS I C- function HJBS 
Puli string parameters cFF atack 
BftSIC-Function LEX 
Uet string para«eter 
Bn91C- function fl?^ 
Bets bute term ^0-3953 
BASIC-functiPn UftL 

Eet5 address CB-555353 and hyte value [0-3933 
Change FftC tj address-format C Ranee 0-B5935J 
8AStC-f unction f"££K 
BA9 ] C " command POKE 
BA5 1 C- command aJAIT 

fac - r«c + e r s 

hinus FAC - constant <A/Y> - FAC 
nin^S FftC - AftE - FflC 
Plus FflC - con-stant [fiVYJ - KQt: 
FluB FftC " ARB * FAC 
Cc -np lefient FflC 
Output OF 'BvarFlOw' 
Single oyte myltiply 
Floating point constant for LOG 
BnS I C- function LOB 

Multiplication FAC - constant £flv¥3 * FAC 
hultiplication FAC - AHB * FAC 
ARB - constant Wif) 

Add exponent FAC to Exponent of ftRG 
FAC * FAC * 10 
Floating point constant 13 
FflC - Fflt/10 
Divide ARG by memory 
FftC - constant Cfl/Vj / FftC 
FflC - flRS/rac 

Output of 'Qivisicm by Tero' 



1947ft 
EB53B 
«9B3B 
f B5AE 



iBB3A 

ESBEfl 
S^HH 
SfJ-OlJ 

■a THE 

SB77E 
EH V £ 3 
iBSBF 
5B3DE 

SS&-.C 

5BB59 

SHhbr 

4BE77 
BB7F1 
SBC4:fl 
54Hp:i 

B9QC5 
BB3ED 
SBC3D 
SiBflQEl 
SBB3E 
Bflfi3l 
i-Qi" ; j 
EHHHP 
SB329 
BE33D 
*B3E£ 

Basse 

B9A0B 
SBfl«B 
ayfltsfi 
SBftEC 
SBE17 
*BB5Z 

ABB3F 

SBB^t9 
S9B4C 
SBB33 



EE3fi5 I9BD4 FAC - constant CA/Y3 

SBfiC? Accutt4 - FftC 

TEBCA S6BFC Accudl - FAC 

b BEDS $BC30 Uariacla - FAC 

1BBFC S9C?B FflC - A JIG 

SBCBC 3BC3B ARE - FAC 

SEC«F B9C3B ho^e FAC to ARE 

IBC1B SBCH7 Round FAC 

SECEE B9C57 Eat signs of FAC 

5Kr:-!H BASIC-Functlon SEN 

SBC9B f9CB4 Bft3IC-f unction ABB 

IBC5B IBC5B Compare constant *A^Y> uith FftC 

1EC9B IGCC7 Change from FAC to integer 

EBCCC Ifiiirs HA5iC-C"unctlOP [NT 

1BCF3 SSDB-a Chsangw ASCII to floa^my point 

1BD7E SBDB4 9et neu ABC 1 1 digit 

BBDB3 SCEl? Floating point constants For Floating, point to 
fl3C] [ 

BEDCc" aflE5B Output of 1 ir.e number el error messau^ 

sBUCO 5BE35 Output oF positive integer numper ^0-B3535) 

Efi^mi sHtiHr Changs FflC rc Asc : i format 

3BF]1 4BF7G F Le»i% mg po^nt constant 0.& 

EBF1E tSFBl Binary nuebers for change of FAC to ASCI] 

*BF71 SBFB7 BAB 3 C -function 3QR 

EEF7B FAC * constant Cft/Y> to the power Of FAC 

EBf?B 5BFC1 FflC - ARE to the power OF FAC 

S8F04 BGFFft EftSIC neflaticn function 

SBf B;F S&etHS Floating point constant far EXP 

■SEFED S9033 BftSIC-f unction EXP 



U]C CHEF ftOOKE99E9 : »B00H-SDfl3^ £^3^HS-S3Sg4^ 



ALDREGG 



HEX 


DEC] hAL BIT 


DESCRtPl 


On 






ED00D 


53E4B 


9ori te 


Q 




y. 


position) Chits 


e 3 j 


BB0I21 




Hpr . f.n 


7. 




t 


poeitian (pits 


■3-B? 


1-B003 


93390 


Gprite 


1 




X 


pO.*i t ipn 




EO&03 




Sprite 


1 






position 




3 BHB4 




5orite 


3 




y. 


position 




SD02G 




Sprite 


y 




Y 


pOElt ion 




1B00B 


53294 


Sprite 


3 




X 


posi t ion 




EDB37 


33333 


Sprite 


3 




V 


pesit ion 




9-B00B 


53c5B 


Sprite 


4 




X 


pos i t ion 




BlIL^lH 


S3?S7 


Sprite 


4 




Y 


position 




BDCUf'ft 


&35SB 


Sprite 






X 


posit ion 




BU0iB 


93353 


Sprite 


5 




Y 


position 




sooe: 


532B0 


Sprite 


H 




X 


poelt ion 






5J?B1 


Sprjte 


H 




Y 


position 




tB00E 




Sprite 


? 






position 




Erjcah 


93363 


gprite 


7 




V 


position 




3D0 3 2. 


535E4 


9th bit cF 


aprite X co-ordinate 




0 


Sprite 


ri 












1 


Sprite 


I 












I 


Sprite 


3 


etc 


through sprite 


7 



E3Ei3 3 33C3 



£05513 
EEQ014 
S001S 



33357 
533GB 
S335S 



*C31B 533 70 



*C317 53E71 



5IIB:H 



5337 3 
93273 



ED01A 53374 



TDG1B 33379 



EflDiC 53375 



*DB1D S3?77 
1B01E 9B27B 



3B01F 53379 



u:c Control Register 
7 Raster compare register. Bit 9 
S l-Engpis e^terided colour test »ode 
5 1 -Enable bit map mode 
4 L—Blnnk screen to harder 

3 1-ES row text display. 0-2H row text 
display; 

3-0 Smooth scroll to V dot position 

Raster compara rog : =ter , Posltton of 

raster on screen 

Light pen t position 

Light pen Y position 

Enable or disable aprite 
a J-fr.gpie sprite B 

1 l-Ensble sprite l 

2 1-EnablE sprite 3 ate through sprite 7 
UIC Control Register 

4 i-nulticolour mode oti 

3 i-t0 Column text : fl-33 colaumn text 
3^-0 Smootn scroll to '£ position 

SpntR Uartir.al Expansion 

0 Expand sprite 0 Uertically 

1 Expend sprite 1 Warticallu 

£ Expand sptite 3 Uertically etc through 
to sprite 7 
UIC Shemory Control 

7-4 uidso *ietfiK base addrese 
3-9 Cnsractsr sat base address 
UIC Interrupt Flags 

7 Set to any UEC ] RQ condition 

3 Light peri triggered (hit 7 J 

3 9 prate vs sprite triggered *hit 75 

1 Sprite vs background triggered [bit 7.1 

0 Raater compare triggered Cbit 73 
UEC Snterrupt Switches 

3 l~Enable light pen interrupt 

3 i-5prlte vs aprite enabled 

1 i -Sprite we background enaOled 
0 1-Raster conparn- cnabJo-rd 

9prite Priority Registers 
3 7 Each bit relates to corresponding 

sprite, 1-Spr i toy oacJcg round priontj 

Sprite mul ti^colour select 
0"7 Each ait sets corresponding sprite to 

multicolour 
0-7 Sprite horizontal Expansion 

Sprite vb sprits collision detect ion. 

[f any aprite j* touching another 
sprite, the hits eorreaponding to both 
sprites are turned on, 

Sprite /background collision detection. 
IF Sprite has hit text or background 
character, the relevant bit is sat. 
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EDBBZ- 


532BB 


Border colour 




535B1 


Baikfj rtiur-d ccLnur 




535BB 


Hui t i »ca 1 our 1 


5O0B3 


53EA3 


Multi-colour 2 






ftjlti-coicur 3 


*D0iB5 




Sprite nult) -CDlaur 


IflOEE 


53B3G 


5prite multi-colgyr 


fines? 


53SB7 


Sprite G colour 


ED0BB 




Sprite 1 colour 


50*53 


5 3?E3 


Sprit A E colour 


lOF 


53E3B 


Sprite 3 !_■ j l ol r 


IGQ^S 


b3B31 


Sprits 4 colour 


SOa^C 


53P9S 


Sprite 5 colour 


SD0BC 


53293 


Sprite S colour 


5B0SE 


S32S4 


Sprite 7 colour 



USEFUL SPPCTE DATA STORAGE LOCATIONS 



■0343-037-E 
50360- &3EE 
5B3C0-03FE 



704- 7BB 
B3£- BS4 
BBS- sss 
360-10£P 



Sprite hlock n 
Sprite blnck 13 
Sprite block 14 
Sprite block IS 



SEE CH If ADDRESSES: SC400-JD41C C5«aa?S-5»i3B03 



A0DRE55 
HEX DECInflL BIT 



ID403 

sutai 



S'tcTB 
54373 



SD40e 54574 
SB403 543 7S 
50404 54376 



Etl4P5 54377 



EU4 0& 54E7B 



53437 EH?7S 

EB40B 54280 
53433 

5Q40A 543B2 

SC403 54233 



1D4 0C &4E34 
ED40D 54PSS 



5D40E 54EBG 

1OH0F S.4FH7 

■Dllfl &4B6B 

SDHll 54,333 

SS413 5l£S0 



tDll^S 54E31 



50^14 54232 



t3-J IS 

2 !"!"+ 1 h 

SD41 7 



£4533 
54 234 
54235 



3-3 

7 
E 
5 
4 
3 
2 
1 



7-4 
3-0 

7-4 



7 

a 

s 

4 
3 
£ 

1 

0 



7-4 
3-0 

7-4 
3.-0 



3-0 

7 

e 

5 
4 
3 
S 



7-4 

s-a 



?-4 

2-0 



7-4 
3 
S 
1 



DESCRIPTION 

Uoice li leu byte of frequency? 
Uoice High byte of frequency 
uoice l: Lciu bytn of pulse dldth 
Uoica is High Bute oF pulse maith 
uoice 1 Control Pogistar 
l-Pandos nei=e 

t-Pu2ee waveForm an 
1 -SawtCOth uaveFnc-ra cm 
1-Tri angle waveFarm nn 
l*Bi sable unir-H 1 

1-ETlfiQ- nadulata voice 1 with voice 3 
l^Synchr eniie voice 1 with ffaq cF 
vcitce 3 

X -St a rt attack, decay , nur.ta i n 

0- Start release 
Uoice i flttacX/daeay 
Attack cycle duCBtion 
Decay Cycle duration 
Uoice 1 Sustain/ re la aa= 
Sustain cydfl duration 
Release eye i □ duration 

Uoice 5; law byte - 1 frnrriinncg 
Uoice 5; high byte oF Frequency 
Uaice 5: Jaw byte Of pulse uid'.h 
Uolce 2: high byte of pulse width 
Uolce 2 Control Psoister 

1- Random Witt on 

1 "Pulse wave For re on 

l "Sawtooth waveform on 

l"f rlBHflle wave Fori* on 

1-Oj.ssble oscillator 1 

l-Rlna modulate oscillator £ with 

oscillator 1 

l-3ynchrp.nl IB oecl.llBT.or 1 witn 

oacillBtor i freq,uency 

1 "Start a tteck , decay , *u&ta 1 n 

a-Start release 

Uoice E 1 Sttackydecay 

^LLacir. c-jcJn Curat icn 

"e^ay eye la duration 

Uoice 2 Sustain/release 

Sustain cycle duration 

£?al ee.se cycle duration" 

UOica 3: low ayta of Frequeney 

Uoice 3- nifl/b byte oF frequency 

Uoipa 3; lou by'.e cF pule* oildth 

Uoice Si hl^hi byte of pulse width 

Uoice 3 Control FBfl latex 

l"Rendom noise en 

L*Pulae waueforfl OH 

-ftajtocth i*avftFarm an 
l-TnarglB wAVeform on 
1-Disaoiia vclce 

l-'Ring modulate oscillator 3 with 
aacilletor £ output 

1-Sunchroriijce aacilletor 3 iwitn Freq of 
oacil lator £ 

1 -Start attack , dacey .sustain 
0- Start release 
Wo ice 3 Attack /docey 
Attack cycle duration 
Uecay cycle duration 



Uoice 3 SuatainYreleasD 
Sustain ^yclB dturatinn 
Release cycle duration 
Filter cut-aff low nybble 
Filter cut-off hian byte 

filter Control 
Filter resonencB 
1-Extemei input ta filter 
l~Ufllce 3 ta filter 
l-Uojce B to Filter 



a l^Uoiee 1 to filter 

EC41B 54^56 - Filter UClume ftnd node 

7 1-Tum off VOice 3 output 

6 1-Miyn pasB Filter en 

S l"Band pass Filter Ort 

4 1-LiJw pess filter On 

3-0 Cut put valune 

5D419 S4gS7 A/n cDnvertar for paddle 1 

SD4Lfi 54=296 rt/D convertar For paddle B 

EC41B 51S99 Producee random number when voice 3 set 
to noise 

»D41C 543BB Ckjtput of uoice 3 envelope flenflfotor 



KEANP-L ETC" BDUTItfES 



CG4 



«1BB Deccriptlan OF Boutine 
REX 



•E843 S9P05 5eries 1 polynoaiel calculation 

SEflSS SS09C Series £ polynomial calculation 

*E0BD *Bisa fioatlno point constants for RtoD 

*Ea97 SB434 BflSIC-function RND 

■El 07 Output df 'Break' 

SE1BC S30CF BSOUT Output of character 

if 3 IE 130E5 ShSIn receive a character 

iElte 530EB CKDuI astadlish output -device 

SEliE S30FD CHKTha establish mput-device 

SEi£4 iSidB EE! IN get a character 

*ElBft I5BS5 BfiSlC-COmmand BVS 

SEISE XSllB BASIC-ccMTiand 3ftUE 

*£1B5 131^9 Bfl5[C-cammandi UgfilfY 

1C1&6 5S1BC I C-command LOAD 

9E1BE iSlSD SftS I C-command QPEtt 

SC1C7 IBlSfl BASt C-command CLOSE 

SE1D4 S31AE Gat parameters far L-QAD/UEHIFY/SAUE 
SE20B 131DB Bet lnteQer in X 

EEB0G t9l£3 Bet Current char and check for line end 

5E30E SSlEB Check character Follows comma 

SEB1S I9lf& Bet parameter For OPEN/CLOSE 

*£?&4 13403 BAS£C-Function COS 

SE2SS BS410 BftS I C- function SIN 

«EE?B4 13433 BASCC-f unction TAN 

$EcE0 iSHHb FlualiTig point constants for CQ5V5IN/TAN 

SFBE5 1S4BPI 5*Pt in. Flaatino paint 

5EBEA 1S4BF 1/4 in flaat*n ff point 

*£c*EF 134B- More constants for CD5/5] N/TAN 

*E30E SS4B3 BASIC -function ftTN 

SE33E SS4E3 Floatln B point constants for RtN 

1E37B $4303 BASJC Nttl jump-in 

*F3fiy S4D3F Error meaaaga handler 

■E394 I40B3 BASIC cold Start 

5E3ftE S4E79 Copy of the CHRCET routine 

i£3BA Start value for the fi*JC function 

BE3BF *4a4^ Initialize RAh For SflStC 

SE4M7 S4B67 Table of BASIC meters 

SE4S3 *4£Sl Load BASIC vector a 

1E45F r^snges of the Operating sysste* 

tE4£0 SC3F4 Uait?i For COPmodare key 
SE4K:: Conatents For RS-iT tH"ln D 

SES0B Dets BflfiiC-Bddr BSs of Ctfl or UIA 

Si 5 35 BetS screen far mat line/caluwn 

EE50.R SDCSfi Set Cursor ar Qet CuCftOr pas;tlori 

SE51B IC07B Screen reset 

fE54H SC14B Claer scrnnn 
5E3B& tClS0 Cursor home 

SE5A0 Initialize video controller 

SESfr4 *CBAD Get cngractsr From keyboard buFFac 

3knr:fi litaitsno loop For keyboard input 

EE63B 5CB3B Get a character from the screen 

iEBBt SC2FF CbeckS For quote 

SE&BB Caiculete rlSB for line starts 

EEBDft leble OF COldur codas 

UiQCn e;:_hpd Scroll screen 

EE3CB SC^tap ShiFt line up 

SE3(FF 1C4AS Clear screen line 

1EA1C SC7ES Set charactar and colour on screen 

5EA24 Calculate pointer on colour RAn 

SEA31 SFA6S interrupt routine 

SEAB7 Keyboard prnmpt 

*EB4B Checks on SKI FT , CTRL end C@n key s 

SEB79 tCeSF Pointer on keyboard decoding tables 

SEBSl SFAB0 Becodlny tables 

*£C14 Checks on control character 

1EC7B Decoding tables 

SECB3 i£?C7 Constants for video controller 

S£CE7 h Lo*d ccr? Run Ccr>* 

SECF0 SCE74 tSB tables or screen starts 

3ED03 IE3B1 Sand TALK 

1ED&C 5E343 Send LISTEN 

1ED4.0 s£3Ee Output oF byte on IEE-bus 

BEDB3 Send secondary address For LISTEN 

1EDC7 sand secondary address For TALfc 

EEDEF IE51S Send UNTALK 

IEDFE IE3BB Send UMLISTEN 

SEE13 SEF5C Eat a byte Tram the lEC-bus 

^EEB3 Ong mill iesecond dfll&u 

IPEEB SE5FF Output F?553B 

*EF4A SE6BE Calculate number dF PS£3£ data-bits 

SF014 =£75C Butput in »SE3B PufFer 

SF33B IE7CE G^T OF R5B3B 

±Faa.4 Set timor Far 1EC time-out 

SF3BD Error messagps oF the Operating ^ystBm 

1F1B0 SF71E Put Out messages 

SF1S7 SEFB5 BASIN get a character 

SF1CA tEF?9 SSBUT output a character 

EFBSSE SFiaS CHKIN Filing of tha- input- device 

SFE50 SF14C CHKGUT Fixing of the output-device 

SFfSl IF IBB CLOSE 

•Oif Look for logical Fiie number 
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SF31 F 

3K HPF 

SF34A 
5F4SE 
SFSAF 
1F5DE 
EF5DG 
Eh HH.- 

SFG9B 

tFsun 

EFBEt 
KFGEE 
tFSFg 
EF7BC 

SF7B7 
SF7ER 

trEMan 

3F517 

■F83B 
^FB^l 
5F94G 
*F964 
SFS6E 
4FBBE 
BFBE1 

space 
Erscn 

IF CBS 

*f:ca 

EFCZDl 
*FC3B 
EFCEE 
EFU0E 
SFB10 
SFB15 
SFD3C 
'ITDC-lS 
XF D9 B 
. iFBFS 
SFE00 
XFE07 
SFE1H 
SFE1C 
SKKc'I 

4FE34 
IFEt3 
¥FECE 
SFF4B 



SFBB5 
SEFBD 

"EFEBS 



£F53E 

SF5FB 
EFbF.P. 
*FE65 
SEfiHF 

SEBB0 

sesib 



XE99.A 
SESBF- 
SEBCA 

SE9&9 
SESFE 
EtSFB 
SEftlS 
*E9l9 

XEAE3 
SED5fi 
±ED&9 
5EDS0 
s::^H7 
9 EEBE 



1 Searching roc File neae ' 
'Loading/verlf yiTig/ 1 



*FA40 
5EB5E 



5a L File par emet ur 
CL*LL CiOSaa oil I/O thannels 
OPEN 
LMD 
Output 
Output 
5AUE 

Out put r Eh v i -in F 1 1 e i lame ' 

UBT]h increase funning time 
Set tlM 
S"et time 
Teat atop- key 

Put cut error mesaagaa oF tha operating aystam 
Read program hnadcr of tape 
Write header an tape- 
Bat start address of taps huFFer 
Set a tart and and addresa uf the tape buFfer 
t-cwK far ne*e cn tape-neadar 
Increase tape burTer pointer 
Units Far tape key Far reading 
Paks For tape key 
waits for tape keg For writing 

Reel! black af tape 

Load program OFF tape 

write tape buffer to tape 

write block or prcgran on tape 

wait for E/0 end 

Checks an stop key 

[ntervupC "L-jLirfi fur tape read 

Bat bit counter for serial output 

write one bit to tape 

Interrupt routine Far tape uriti 

Set IRQ vector 

Switch off tape drive 

Checks on rcarhmg of end address 

Increase address pointer 

RESIT 

Checks on Ron in ssQ&ti or sfi&ee 

Ron module identlficet ion 

Bet or (jet hardware and ]/0 factor* 

Table of berdwere and I/O vectors 

Initialize work mertary 

Table Qf LSD vectors 

Set parametar Far file names 

Set parameter for active File 

Get status 

Set Flag for messages of the operating Syfttem 
Set atatua 

Set tlmpaut flag for TEC -bus 
fi-nt. r:r gnt. SfTl-upper limit 
Set or get Rnn- Lower liait 

Nni routine. 

Conatarta for RSE3c" baud rate 
interrupt handler 









KERHflt JUnP TABLE 


ABDRESS 


CONTENTS 


FURPDSE 


EFFFJ4 




!FDft3 


Initialize CEA's 


SFFfl? 


JHR 


XFDSQ 


Claar &r check RAn 


4FFBA 


.ir-i.^ 


SFD15 


[nitialiEa 10 


3JFFBD 


JhP 


SFD1A 


Initialize isn vectors 


EPF 90 


JI-IF 


IFEtfl 


Set =tatgi= 


SPFS3 


J«F 


SEBHB 


Send LEST En an aondftru addresa 


SFF9& 


JHP 


SEDC7 


Serd TfiLX Gocordary arlrlrftSS 


1FF39 




SFEBS 


Sat/ gat RAM end 


SFFSC 


JnP 


XKK HH 


Set/fl-et SW start 


5FF3F 


jnp 




Scan keu board 


EFFflB 


JttP 


SFE21 


Set lEC-bufl time out flag 


SFFAS 


JFIP 


IEE13 


Input For 1 EC-bus 


EprpiB 


JFIF 


SEDDD 


Output to [EC-uuB 


SFFftfl 


jnp 


XEDEF 


Send UNTALK 


JFFAE 


..-i- 


5EDFE 


Sand UNLISTEN 


SFFB1 


JnP 


S£DBC 


Send LISTEN 


sffbh 


JI1F 


SEDen 


Send TALK 


SFFB7 


JWP 


¥FE07 


□at status 


flFFBA 


Jnp 


5FE0P 


Sat file p-ai-a -ie ter 


SFKH;i 


JhP 


IFBF9 


Set nianama parameter 




JMF 


i 4031 fl J 


EF34A OPtN 


4FFC3 


jnp 


C4B31C; 


SFS91 CLOSE 


•B ? r : : h 


jnp 


<*031Ei 


4F2&E CHKTn set input deulca 


3FFi:h 


JHP 




4F2S0 C3COU7 set output device 


iFFCC 


jnp 


i 40325 i 


4F333 CLRCK 


1FFCF 


jnp 


CE03Bi3 


IF 157 1ASSN jnput character 


IFFDE 


jnp 


C5B32B) 


4F1CA BS0LI7 output cTisracter 


E F~D5 


JnP 




LOAD 


■ FFOB 


Jnp 


XF5D3 


5ME 


XFFDB 


JnP 


5hh:-- 


Set time 


XFFDE 


J pip 




Bet time 


iFFtl 


JMF 




sFSEO Scan a top- key 


SfFE 1 ! 


jhf 


L EQ3?fl ) 


SF13E SET 


SFFE? 


JMF 




IF32F CLALL 


XFFEft 


jnp 


EF69B 


: net HUSK t ir*B 


SFFED 


jnp 


sesas 


SCREEN gat number lines- and columns 


SFFF0 


JnP 


ErSL^ 


Set/gat cursor position 


»FFF3 


JftF 


XES00 


Get start of 1/0 element 


IFFFfl 


JhP 


SFEH3 


Nn] vector 


f-FFFC 




VFCCE 


RESET vector 



SCfiS&N COLOUR CODES AND nOCES 



walua to POKE 


far t«qh 


vHJ ± uUl . 






LOU NVE&LE 


HLBH NYBBLE 






COLEJUR 


LVALUE 


UftLUE MULT I 


-COLOUR 




Black 


0 








Uhi be 




is 






Red 


a 


3^ 


10 




Cyan 


3 


4B 


11 




Purple 




b74 


IE 




Green 


y. 


B0 


13 




Blue 


E 


as 


11 




Yel low 


7 


us 


15 






B 


1EB 


— 




Brawn 


3 


ll 1 ! 






lignt r^n 


1$ 


190 


-- 




□ark grey 


U 


irt 






nid gray 


\M 


13? 


-- 




Light green 


13 


Baa 






Light dIlb 


It 








L i g ht g reu 


IS 


B40 


— 




when to POKE 


colour ve 


iuea for each modej 








&[T QR 








nOTJE C i 3 


D T x DA T D 

el 1 - rfl 1 K 


LDCAT ]Qn 


■ ■ 1 J v ^ ■ 1 T 




Regular text 


0 


S3£B1 


Lew nibble 






1 


Colour nemory 


tofti nybble 




r*u 1 1 ICQ 1 Our 


00 


S3EB1 


LP* nybdle 




te^t 


01 




Low nybbln 






10 


532B3 


_c_ nybble 






11 


Colour memoryi 


rkjlti colour 




£. ic t n rdfltrl 


00 


532B1 


Low nybble 




colour text 


01 


S3fBS 


Low nyoble 






10 


532B3 


Lou nybble 






11 


S3BB4 


Law nybble 




Bi tmapped 


0 


Screen mertary 


Low nybble 


Ciiil 




1 


Scrptan memoru 


High nubble 


C1115 


rlul ticalouor 




S3£51 


Low nybble 


f lii J 


bitmapped 


01 


Screen memory 


Migti nynnjB 


am 




10 


Screen memory 


Law nybble 






11 


Eulaur memory 


Lou nybale 





C i > For al l modes , the screen herder colour iB controlled 
by PDKEing 532S0 with thg lew nybble colour value, 

Ciii In extended cnlour mode, blta B ft 7 cF saoTi bute of 
screen mnmnrj srr^s a* the bit-pair controlling 
bBCkg-raund colour. Because only bits, fl-ft ara available 
TOT Character selection, only characters with serein 
codes G-B3 can be used in this rode, 

C1113 [n the bitmapped modes., tnn nign anrS law nybble colour 
-■aluhfH d: h DRed together and PDKad tntoi the 
Sflne L0CAT]{]N in screen menory to control the colaurs 
□F the correaponding CELL in the bitmap. For example.: 
ta control the colours of cell O Dr the bitmaPi OR the 
high end law nybble uelues antf. POKE the TBBUlt Into 
locatic-n 0 nrrr-nn memory - 



C12Q COLOUR EDDEG 



Command: COLDR source, colour 



SOUPCE 

NUflBER SDUfiCE 

0 40" column background calour 

1 Foreground for graphics screen 
E Foregi-t>jnd for muJtlCClOUr 1 

3 Foreground For multicolour 2 

H 40-colusin border [text and graphics} 

S Tnxt colour for *tlB— or QSi-co 1 u^n screen 

E SO-colusin baokgroundi colour 



4 3-CCLUn^ riDDE 



B0 COLUMN MODE" 



CDLCUS 




EOLOlR 




LWLUE 


COLOUR 


UfiLUE 


CBLOUR 


1 


Black 


1 


Black 


E 


Whita 


E 


White 


3 


Red 


3 


Red 


4 


Cyan 


1 


Light cyan 


& 


Purple 


5 


Light purple 


g 


Sreon 


S 


Light groan 


7 


Blue 


7 


Bark blue 


B 


Vellaw 


8 


Light yelluiii 


S 


Orange 


3 


Bark purple 


10 


Brown 


10 


Brown 


11 


Light red 


U J 


Light red 


IE 


□ark gray 


IE 


Bark cyan 


13 


nedlue g-reu 


13 


ilfcjJiL - ul ^l; 


14 


Light green 


14 


Light- p r ea n 


15 


Light blue 


15 


Light blue 


IB 


Light grey 


lb 


Light grey 
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STANDARD ££n TOKENS 



ME X 




TDKEN 


HEX 


DEC 


S-'W 


32 




3F4 F 


79 


■ 


33 


1 


£50 


BO 


■jis 


34 




SEl 


91 


■ 

i' 1 


35 


* 


iSB 1 


B2 




■i :,■ 

j 


s 


153 


S3 


£25 


-b-i 

J7 




154 


S4 


15 G 


39 


i 


=55 


35 


SET 


^5 




155 


HH 


£29 


4 f5 


c 


¥57 


87 


539 


H>% 




356 


pi 


MA 

Irw 


4? 




159 


99 


12B 


43 




SSft 


90 


5 2 EI 


4*i 




15B 


91 


a CU 


y c 
lb 




55C 


92 


•i ■- 


46 


■ 


450 


93 


j>et 


4 7 


/ 


£5£ 


94 


1 30 


40 




S5F 


35 


131 


49 


1 


390 


1 sa- 


t" Ji_ 


be- 


3 


531 


les 


£33 


51 


3 


3 09 


130 




92 


4 


£93 


131 


rr J- 


53 


5 


394 


132 


£ J £3 


54 


& 


1B5 


133 


137 


95 


7 


SB L": 


134 


535 


5£ 


9 


197 


135 


£39 


57 


5 


399 


135 


1 "i 
*-i H 


52 


■ i - - 


SHH 


137 


13 B 


33 


i 


£Sn 


139 


SBC 


SB 




13 3 


". HH 


190 


61 




101 




S3E 


62 


> 


E9D 


inn 


53F 


53 




£9E 


142 


*-te 


54 


n 


59F 


143 


541 


65 


A 


£90 


14* 


EH r 


E5 - ' 


B 


191 


145 


143 


67 


C 


*3sf 


146 


£44 


69 


n 


153 


147 




59 


E 


194 


1H9 


545 


?0 


F 


195 


14H 


£4^ 


71 


Q 


395 


150 


I4S 


72 


H 


197 


151 


149 


73 


I 


199 


15? 


54A 


74 


J 


£53 


153 


5-fcB 


75 


K 


£9A 


15t 


£4C 


7E 


L 


59B 


155 


B4-L1 


77 


n 


19C 


155 


54E 


79 


N 


£30 


157 



□ 
p 

0 
R 
5 
T 
U 

u 
u 

s; 

V 

z 
c 

] 

L . ARROW 

End 

FDR 

DflTA 

INPUT* 

INPUT 

cm 

HEAD 

-LET 

GOTO 

RUN 

IT 

RESTORE 

5D5UH 

RETURN 

ffEn 

S70F 

□N 

WAIT 

LOAD 

5AUE 

UERIFV 

POKE 
PRINT* 

CONT 
LIST 
CLP 
CflD 



HEX 


BEC 


TOKEN 


55E 


ise 


5Y5 


S9F 


155* 


DFEN 


1A0 


150 


CLOSE 


■A] 


191 


□ET 


SA2 


IBS 


NEW 


1A3 


1S3 


TflBC 


SFi4 


lfiH 


TO 


3A5 


155 


FM 


£GS 


165 


SPC( 


Efl7 


157 


THEN 


IAS 




ND7 


5*9 


isg 


STEP 


3AA 


170 


+ ADD 


Iflfl 


171 


- niHufi 


SAC 


17r! 


- MULTIPLY 


3AD 


173 


J DlUEDE 


EftE 


174 


4 POWER 


SftF 


175 


AND 


3 30 


17B 


OR 


5B1 


177 


> ^ftc'PTER 


SB? 


176 


- EQUAL 


£B3 


175 


« LESS 


SB4 


190 


5CN 


355 


191 


i NT 


3B5 


192 


AB5 


IB7 


193 


USR 


•£29. 


IBfi 


FR£ 


1S9 


195 


FD5 


9BA 


ies 


50R 


5BB 


197 


RND 


£BC 


199 


LDG 


EB3 


199 


EKF 


£BE 


133 


COS 


FHF 


191 


SEN 


ICQ 


192 


TMi 


SCI 


153 


ATN 


1C2 


134 


PEEX 


SC3 


1SS 


LEhf 


5C4 


19B 


5TRS 


ECS 


197 


UAL 


SCB 


196 


flSC 


SC7 


139 


CHRS 




330 


LEKTS 


ICR 


231 


Richr£ 


£Cfl 


202 


niBi 


1CB 


503 


90 



1541 DISK DHUJE - USEFUL n£riDRY LOCATE DNS 



C13Q EKI -NLh :i TJXE^S 



H£X 


DEC 


SPKEN 


HEX 


DEC 


TOKEN 


HEX 


DEC 


TDX£N 


s::;: 


204 


RSR 


1DD 


S3 


PUOEF 


SEE 


3 39 


DIRECTORY 


1DD 


P05 


RCLP 


3DE 




GRAPH EC 


£EF 


239 


DSALTE 


ICE 


?m 




EDF 


223 


PA 3 NT 


SF0 


240 


DLOAD 


5CF 


207 


JDV 


EE0 


224 


CUftR 


1F1 


541 


HEADER- 


£D0 


20B 


R-DDT 


SEl 


225 


:":.'::« 


SF2 


?4£ 


SCRATCH 


SOI 


203 


□EC 


BE2 


£25 


CIRCLE 


SF3 


243 


COLLECT 


ios 


310 


HEi5 


SE3 


337 


Q3HAPE 


3F4 


344 


COPV 


£□3 


Ell 


ERR£ 


SE4 


2S* 


55HAPE 


£FH 


245 


RENAflE 


1B4 


sie 


IN5TR 


EES 


229 




1F5 


346 


BACXUP 


IDS 




ELSE 


1E5 


330 


LOCftt£ 


1F7 


an? 


DELETE 


1B5 


S14 


RESUME 


3E7 


231 


CDLO&? 


SFB 


r'HH 


RENUftBER 


ED7 


215 


r»&p 


1E9 


23? 


5CNCLP 


3F5 


249 


KEY 


£OB 


216 


TRON 


SE9 


&33 


SCALE 


UFA 


290 


MONITOR- 


£05 


217 


TPDFF 


1EA 


234 


HELP 


SFB 


251 


US] NO 


IDA 


3*19 


SOUND 


3EB 


335 


DO 


3FC 


252 


UNTEL 


SDB 


qfl9 


UDU_ 


3EC 


23B 


i.:in:-- 


SFD 


393 


UKILE 


■ DC 




AUTD 


3ED 


3 37 


EX3T 


1FE 


354 





CBH12B BOuBLt BYTE TOKENS 



3CE 


fr liowfid by. 








KEK 


DEL TDXEN 


HEX 


DEC 


TOKEN 


£03 


S POT 


E05 


5 


JJSPP05 


E03 


3 Eunp 


£05 


6 


RSPPi 1 TE 


104 


4 PEN 


S07 


7 


RSPCOLOR 


£FE 


f = i 1 0_PiJ. by : 








hEX 


DEC TOKEN 


HEX 




TOKEN 



HEX D£C TOKEN 



£05 
£Sy 
121 



10 PD ENTER' 



HEX DEC TOKEN 



102 
S03 
30j 
105 
3 36 
S07 
S09 
S09 
10* 
33B 
£GC 



BANK 
FILTER 
FLAY 
TEnFO 

6 1 M0U5FR 

7 SPJiHE 

B SPRCOLDR 
9 RRES 
1* EWUEL.OPE 

1 1 SLEEP 

12 Catalog 

13 OOP EN 



2 
3 
t 
S 



ME 
30F 

110 

511 
£13 
£13 
S i 4 

SIB 
115 
517 
£1B 
119 
51 



14 APPEND 

15 DCL05E 
IE. ESAUE 
17 BLDAD 

19 RECORD 
15 CDNCflT 

20 BUEREFV 

21 EKLEflR 
32 5PHSAU 

23 COLLISION 

24 BEGIN 

25 BEND 
36 VINEHU 



11B 

51E 
£10 
3IE 
£1F 
S20 
121 
S22 
323 
334 

125 



27 BOOT 

29 WIDTH 

29 SPRDEF 

30 QUIT 

31 SPPDEF 
33 EXJIT 

33 STASH 

34 FETCH 

36 5WAP 

35 OFF 

37 FAST 
3B SLOW 



DOS AB0RE53 



£C30O-fi07FF 



500E3 

E00G£ 
S0003 
50&34 
1000G 
50Q0B 
300DA 

•t 

S0fll4- 
13015- 
53020- 
£0&30- 



000 7 
3O09 
0S09 
00 SB 
300F 
0013 
3015 
0017 
0021 
0331 



OECIHAL 
0-2A47 



1 

c 
3 
H 

6-7 
9-S 
1«-11 

IP-'. 4 
14-15 
19-19 
20 31 
22-23 
3S-33 
*«9-43 



5E035 


57 




£&3 3A 


SS 




54103D 


51 




SB03F 


S3 




*00 l t3 


E7 




S00H7 


71 




50E-t9 


73 




5E04A 


74 




£0351 


HI 






105 




5305A 


105 




340EF-0070 


Ill- 


-112 


1007 7 


US 




1307 9 


123 




30079 


121 




1007A 


122 




SE37C 


121 




3307C 


135 




5007F 


127 




£00^0 


129 




S30G1 


133 




300S2 


130 




5003 3 


131 




50394 


132 




50395 


133 




3&05B-00BB 


J 39-141 


Se«94-0095 


14&- 


-145 


£0099~ES3A 


153- 


154 


£009B-03*BC 


155- 


-156 


S009D-303E 


157- 


159 


S0C-9F-03A0 


159- 


160 


503Al-00oa 


151- 


152 


50DA3-30A4 


153- 


154 


E00f%5-0EA5 


165- 


185 


S00B5-&OBA 


191- 


186 


100BB-00^0 


1B7- 


19£ 


S0flCl-«0C5 


133- 


136 


S00C?-33CC 


193- 


£04 


S33B4 


212 




S0QD5 


213 




30005 


S14 





S0GG7 




2iS 


100E7 




231 


S&QF9 




24 3 


£EL00- 


-3145 


355-325 


13200- 


-0239 


512-555 


5B24A 




5B5 


50259 




530 


E0253 




531 


£035A 




602 


50274 




d25 


S3£7B 




532 


13297 




553 


EaPH'J- 


-0264 


E40-G44 


13299- 


-0259 


64 S -613 


302D5- 


-03F9 


725 -7S1 


102FR- 


-02FC 


752 -7B4 


£0330 


03FE 


799-1023 




-04FF 


10S4-1275 


S0F30- 


B5FF 


1298-1535 


^0E30- 


■06 FF 


1535-1791 


5E700- 


07FF 


1732-2347 


13900- 


Frrr 


204B-5B53S 


50630 


17FF 


3046-6143 


E]9B0- 


1B3F 


S144-6155 


5 IB 10- 


1BFF 


6150-7167 


£1000- 


1C0F 


716B-71B3 


S1C10- 


c:bff 


71B4-49407 


£C100- 


FFFF 


45408- B553B 



BESCRIPTCON 
DDS Run CHEF 

Cnrwisnd GOda FDf buffer 0 

E-Dmmnnd. =-ndr for buFFat 1 

CDffffl&rid code Fur buffer 2 

Command COda for huFfar 3 

Cnnmar-d CDdQ For buffer 4 

Track and SflCtDf fbr buffer 

Track and **c-tor Foe tiufFer 

Trnck and B^ctor For buffer 

Track and sector for DuFFec- 



Track and -seccnr Far buffer 4 
ID Far drive 0 
]D far drive 1 
Current ID 

Flag for risad tra-nftpart 
Buffer pc^nter fDr disk 
controller 

Cana-tflnt 6 - mark for DBglrirtinfl 

nf data biQck header 

Parity fur dBtb huffer 

Drava number For dj.=fc cnntroller 

BufFar number For dj.^k ccntroller 

Number af eectors Oer track Fgr 

Fnrmatt mg 

Constent 7 - «ark for Uagining cF 
data block heedar 
Stack pointer 

Step counter for h»a*? traisport 
Actual track number far 
Fari*ittinQ 

Stap ai3fB for sector division 
flOO 

tfcjmbar oF read attempts f S3 
Painter to addrees Far rl and 8 
camrrand* 

Device numhfir-t £201323 For LISTEN 

Device number* £40£643 FOf TflLK 

Fiag For LISTEN f|/0^ 

Flag For TfllK U/0> 

Flag fur AT>v f-n.-n serial fcua 

recBLvlrig 

Flaa For EDE frgm serial Uua 
Dnue number C0i 
Current track number 
Current sector number 
Current channai number 
Current File numbar 
Currant aeccndar.j address 
Current dale bL,tc 
work storaga For divmaTi 
Actual buffer poi-iter 
ftddreas aF buffer 0 C 13303 3 
Address af buffer 1 CW400; 
Pddre== cf ai.rrer 2 £ 50503 J 
address eF buFfnr 3 ( £0503 J 
dddrsae- af bufFar 4 50730 j 
Painter to input buffer 13200 
Pointer to buFFer error fntbbauc 
tS02D5> 

Secard n^Rber LD, black nuaUer LD 
Record number HE , black number HI 
unte pointer For EEL file 
Record langtr For REL file 
Painter in record for HEL file 
Side nectar number 
Pointer to data block in aide 
sector 

Painter ta record m REL file 
Fiii type 
Buffer number 
Stack 

BufFer for commend string 
File typn 
Piaaord lergtn 
Track side-saotcr 
Sector eide-s4ctar 
Length oF input line 
Number df File namas 
Fila control method 
TracSc CF a File 
Sectar of a Fl la 
5uFfer for error meesagnr. 
Number gf BLOCKS FREE 
SuFfer 0 - main work buf F er 
Buffer 1 - disk directory 
Buffer 2 - user buffar 
BuFfer 3 - diek directory 
BuFFer 'e - Bfln nap 

DCS ROM CM3P 

Unused 

IEEE bus control lar 6522 

Onus controller SS2& 
Unueed 

013k Operating 1 KystB* r cut ires 
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DESK EPRDR MESSAGES 
AND THEIR DRUSES 



The Fallowing J,i*t COntalna the error messages; recognised &u 
fchB 154:1 DDE] . 

Note that TT and SS denote Track and Setter respectively . 



EfifiOP NUMBER 
ZB,READ EfiHQR, IT, SS 



READ ERROR , T7 , SS 



23 .HEAD ERROR ,71,35 



24 , PEAE E3?R1R,7T,55 



E5 r WHIIE ERRDP ,11,55 



R6 .WRITE PROTEC7 Dk.TT.SS 



E7 m READ ERROR ,TT,SS 



SB r UHI7E ERROH,7T,SS 



ga t DISK ID nISriRTCk K rr,55 



33, SYNTAX EJi&DR.BB.BB 



31 , syntax ERROR ^.Ba- 



Sc" , SYNTAX ERROR , QE , GO 



33 , SYNTAX IFRQR.. 30 , £3 



31 , SYNTAX ERRO R . £ 2 , SB 



DESCRI FT] ON 

The last disk operetlon ^bb error 
fr«" or diak i^-hss has boon 
made ainca tha laat error maasege 
u«da read . 

7 ha ' header' of" a black u3S net 
found. It 19 uaually the result 
oF a defective d-Lsk, T7 and 55 
denote tha track and sector in 
which tha error occurred. 
Remedy; change tha diak, 

Trie SYNE marker of a black was 
not round, The cause may. be an 
unformatted disk, or no cjsk in 
■he dnufl. This error can also be 
CHHfd by 1 mifahynid rwd/untn 
head . 

Reredy : Either insert a diak 
and Format it iF fiBrtSiSfy, or 
have the haad re-ellgned. 

a checksum error hea occurred in 
tha header af a data hi nek, ithich 
may have dean caused by the 
i rcarrcct uritxng of a block nr 

rough handling oF the diak. 

A data block was read into the 
DOS duFFer but a checksum error 
Tigs occurred. One or mare data 
bytes »n inoorract, 
Renedy : Save ae many Files as 
possible anld another disk., 

This error also r-eaulta From a 
'jheckauB error in the data block 
or in the precedirg data header. 
Incorrect by tea have been read, 
Remedy: Same ae For error S3, 

Thia ia actually a UERIFY errflr , 
Arter writing every block the 
clar a : r, read ngi ir, checked 
against the data in the huf f nr . 
This arrnr is produced iF the 
data are not identical . 
Remedy: Repeat the command that 
caused tha error. IF thia does 
not work, the block- el locate 
command must be used to lock out 
the oFFending block Fro* Future" 
..'■.r. . 

An attempt mas mode to write to a 
disk with a write protect tab on, 
Remedy: RemOv-a the tab, 

A checksum arrnr h« occurred In 
the header cF a data block ■ 
Remedy- Jfepest conmanp or rescue 
block . 

Aftar uritmg a data block, the 
SYNE Characters of the next data 

block vers not found , 

Rame-dy- For*et the "disk again, or 

e:->: c hnngo it- 

The t5 m the COS memory does 
not agree with tha JO gr> tha 
disk. Tha disk either uac net 
initial i sad cr has an error in 
the heeder oF a data block. 
Remedy: .initialise the disk. 

7 ha DDS cannot understand the 
command, that it is receiving. 
Remedy: Correct the comaand. 

A command was nnt rscognlind by 
the DDS . 

Remedy i Do not Lrae the comaand . 

The command! aent was over HO 

charactere long, 

Remedy: Shorten the command, 

A wildcard, C"*" or U ?"D i*aa 
L=ed in en DPEN or 5AUE command.. 
Remedy : Remove wii dee rd . 

Tha DOS cannot find tha f ilanamc 
in a command. The cause halj be a 

Forgotten colon aFtee the command 
word . 

Remedy : Check the conmard . 



3s, FILE MOT FOUND . i'.A , 



User prop. ram <U5R) use not F« 
for automatic execution. 
- r. T>rsrl .j- ■ : heck r . ; * -.a , 



iund 



50, RECORD NOT PRESENT , a&, Gb n n n- & xi stent reesrd has 

addreesed in a relative data 
file- when writing a record this 

ia nob really an error . 
Remedy. You can avoid -nin 
mSssege j. F yau write ChR4t 
with the highest record number 
when initialiaing the File. 

51 , DUERFLDL* IN HECOHD^ae.aa Tha numbar of characters s^nt 

when writinp e record in a 
relative File was greater than 
the record length. The excess 
charactere ere ipnored. 



&S.FZLE TOO LfiRDE.BS.OB 



E0 ? UIR]TE FILE OFE-J.ea.BB 



B l , F ELE NOT 0PEt4 , @£ , 00 



&2,f]le not FDukD.ea.aa 



E3 , Fl le EKiETS.aa.ea 



The record number within a 
relative file ia too big : the 
d:&-- does not have enouflh 
capacity - 

Remedy: Uve another disk or 

reduce tha number oF records. 

An attenpt ues nede to 0P£N e 
File that had not previously baan 
CLDSEd after writing. 
Remedy: Use mode fH ' in the OPEN 
command to read the File. 

Prcess wss attempted to a f ite 
that has not been DPENed . 
Pamedy; DPEN the File or check 
the Filename. 

An attempt was made ts load a 
program or open a file that does 
not exist on the disk . 
Remedy: Check the Filename, 

An attempt we 5 made to establish 
a new File tilth the san-S name ea 

one already on the diak, 

Remedy j tlsft a different nana or 
use a 3 : 



61, FILE TYPE nESttflTCH , OO.aO The File type used L-n the OPEN 

commend does not agree with the 
file type in the directory. 
Remedy: Eoirect the Filefcype- 



65, NO BLDEK,7T,55 



£&, ILLEGAL IT or SS . : I , S fi 



67, ILLEGAL TT or SS.TT.SS 



7fl,ND CKflNNEL.ae.aO 



■71, D]R ERROR. TT .55 



7e p DlSK FULL, 00, M 



73,CBM DOS v.rTfi 1541 , 



74,. DR] <JE NOT READV.C 



Thia maaaage is g-iven in 
aaaoclatlon with the block- 
allocate commend when the 
specified block is no longer 
Free, [n this case, the 005 
automatically aearchea for a free 
block with • frtnhar sactor and /or 
track numbor and gives; t.heoo 
values as the track and sector 
number in tha error mes-sa.u/e . IF 

no block with a greater number Is 
Free, two zeros- will be given. 

An attempt hag hepn made to 
access a non-existent block using 

the block commands. 

The track/ sec tcr combination oF i 
file cgnta±ns values For a non- 
existent track or sectur. 

Rn attempt has been aade to open 
mora f;in channels than are 
available or a direct access 

channel is already reserved. 
Remedy: Alwdja Lluse a crennai 
aFter It has been accessed. 

The nu&her of Free blocks in the 
DOS storege does not agree _itr 
the HAH. OF ten this meena the 
disk has notbeen initialised - 

Remndy : If the disk han hnnn 
initialised, validate it. 

Fewer than three blocks are free 
on tha clinic or trn maxirum nurber 
of directory entries have been 
used (141 on the 1541 J ■ 
Remedy: Use a different disk or 
try validating to free any blocks 
that maj ha avaHabje. 



, Bffl The seseage Is the power-up 

message Of the l£4i . £t appears 
as an error message when an 
attempt is made to write to e 
disk that was not Formatted with 
the sane DOS uerelon. 

3 The drive does not have a disk 
inserted , 



75,F0RnfiT SPEED ERRQF.aB.aa Th^s error only occurs oh the 

CBn B3S0. 
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LDCATTDtf 19? CEt XEYCDDE UflLUES 





XEYCODE KEY KtYCatJE 




10 


5 


IB 


B 


20 


G 


13 


c 


— irp. 


7 


34 


D 


15 


0 


27 


I 


At 


a 
3 


3E 


F 


£ 1 




■ae 


□ 


.--r 




BH 


H 


71 ■g 




43 


I 


33 


C 


BH 


J 


j! 


__.: . i.urL 


-i l 


K 


J' 


r M^T ■"TIFT 


0 


L 


43 


LEFT AEfrDU 


S7 


ri 


3B 


A 


46 


N 


33 


p 


43 


a 


3B 




St 


p 


41 




45 


0 


65 


i 


si 


^ 


17 




53 


s 


13 


RET 


1 


J 


Fc 




47 


u 


30 




44 


u 


31 


/ 


55 


y 


9 


csp up/c-dlun 


7 


X 


S3 




E 


V 


as 


Fl 


u 


z 


13 


F3 


C 




£E 




& 


E 


59 


F7 


2 




a 


SPACE 


Bfl 


4 


li 


HUN/5TDP 
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yping in long programs can be a pretty daunting task. 
Once you've entered the program there will probably be 
typing errors that need to be corrected* Why not save 
yourself time and trouble by buying a disk or cassette 
containing all of the programs from this magazine at a 
bargain price of £6.00 (disk) or £4.00 (cassette), 

The disk and cassette arc only available by mail order 
from the address on the order form. A cheque payable to 
ASP Ltd for the correct amount should be included with 
the order. Overseas customers should add £L00 for 
postage, 



ORDER FORM — PLEASE COMPLETE IN BLOCK CAPITALS 



NAME 


QUANTITY 


PRICE 


ORDER CODE 


TOTAL 


SERIOUS USER 
DISK 




£6.00 


YSUGD2 




SERIOUS USER 
TAPE 




£4,00 


YSUGC2 




OVERSEAS POSTAGE 




£1,00 








TOTAL 





NAME 

ADDRESS. 



.POSTCODE. 



I enclose a cheque/postal order for £ made payable 

to ASP LTD. for the Your Commodore Serious User Guide 
Disk/Tape. 



AH orders should be sent to: Your Commodore, Readers 
Services, Argus Specialist Publications, 9 Hall Road, Hemel 
Hempstead, Herts HP2 7BH. 



Please allow 28 days for delivery. 
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128 Font Editor 



A character designer to turn your CI 28 into the 
deft nil ive machine 



ser-defincd characters can turn 
a so-so screen into a work of art but 
their creation involves the program- 
mer in hours of preparatory work. 
Font Editor makes the CI 28's brain 
take the strain by providing an 
environment which is easy to master 
and can be expanded as the user's 
needs dictate. 

Font Editor is a machine code 
program located between $3000 and 
$4000 {12288-16384), with two 
characters sets stored at $2000 
(8184) and $2800 (10240). These 
locations are normally reserved for 
the screen in graphic modes 1 , 2, 3 
and 4, which means that the Font 
Editor can't be used alongside these 
four modes. 

Before the editor is used, it is 
important to understand how the 
CI 28 character sets are normally 
used* The two sets are categorised as 
upper case with graphics, and upper 
case with lower case. Only one set 
can be used at a time and they can be 
swapped by holding down the 
SHIFT key and pressing the CBM 
key. 

The character shapes are copied 
from a table in ROM but it is 
possible, by pointing the operating 
system towards an area of RAM, to 
load in two user-defined character 
sets. The 128 Font Editor has been 
written to help with the design of 
these alternative sets. 

Controlling the editor 

The Font Editor screen is divided 



into several windows, or areas, 
which control all of the functions 
necessary for redefining the char- 
acters. By using a joystick in Port 2, 
the screen pointer can be moved 
from area to area and, when the 
desired mode is highlighted, the fire 
button is pressed to select the new 
mode, 

The function of each window is 
shown in Diagram 1 . 

The options 

The 20 option menu allows complex 
operations, like mirroring and rota- 
tion of characters, to be performed 
at the touch of a button, Tables 1 
and 2 show the variety of the func- 
tions available through these menus. 
The load and save operations only 
operate on the current character set, 
so the set has to be selected from the 
menu before these options are 
executed. 

These tables only show the stan- 
dard features but complex manipu- 
lations can be achieved by using two 
or more options in sequence. Any 
character can be flipped in the diag- 
onal plane by first rotating the char- 
acter through 90 or 270 degrees and 
then by flipping the character in the 
horizontal plane. 

The best way to execute these 
special operations is through user- 
defined routines written in Basic or 
code, To execute such a function, 
select the End Editor option and the 
computer will return to the mode it 
was in when the editor was entered. 



For example, if the edit or was called 
from within a program by a line such 

as: 

1 0 BOOT"FONT EDITOR" 
it will return to program control at 
the next program line. If it was 
entered from direct mode then the 
READY prompt will appear, 

When the defined routine has 
been executed, the Font Editor can 
be re-entered with SYS DEC 
("382F") as long as the option 
screen has not been corrupted by the 
new routine, 

By using calls to the editor's 
code, it is possible to add extremely 
complex functions to the editor 
whenever your needs dictate. 

Defining new options 

There are several things to bear in 
mind when defining an option. The 
editor code and character definition 
areas must not be corrupted by the 
new routines, but the input window 
(Area 4) can be used To facilitate 
extended options, the function keys 
can be used when the program is in 
input mode but Area 4 should al- 
ways be cleared before re-entering 
the editor. 

The RUN/STOP and RESTORE 
function is not disabled by ,the pro- 
gram but, if the program is inter- 
rupted by using these keys, it can be 
restarted by SYS 12288. If, however, 
the screen has been corrupted, the 
editor will have to be rebooted be» 
fore this system call. 

Always, remember that the cur- 
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rent character set remains operative 
when the End Editor option is used. 
This also applies to whether the set 
is taken from ROM or RAM. 

The following breakdown of the 
Font Editor memory map will help 
when defining your own routines. 

$0A 2C The lower nybble indicates the current 
source of the character set. 
%xxxxOim (S4) for ROM set 1 
%xxxx0110 (S6) for ROM set 2 
%xxxxlQ9Q (SS) for RAM set J 
%xxxxI010 fSA) fur RAM jpf 2 

SOC00 Start of the relocated interrupt routine 
for moving the cursor around the 
screen, ft appears here to avoid prob- 
lems if the graphics screen is cleared* 

S0D63 Tke X position of the pointer when the 
fire button was fast pressed. 

S0D64 The V position corresponding to 
S0D63. 

S0D6S Register for the currently selected 
menu option in Area 3* !\'o option is 
selected if the mine is SFF, 

S0D66 Flag to indicate that the fire button 
has been pressed. This is reset from I 
to 0 when the signal is acknowledged. 

SIQQQ SYS called for a cold start only after 
RUN/STOP and RESTORE hare 
been pressed at the same time. 

&3QAE This routine clears the input window^ 
Area 4, 

S30D6 Forces Area I to display the current 
character held in the accumulator, ft 
also updates Areas 2, 5, 6 and 7 



accordingly, From Bask this is called 
by 

SYS DECCiOD6 f %sp 
where sp is the screen poke value for 
the character to be displayed. 

$326® This inverts the pixel nr the location 
specified hy the accumulator (column) 
and the X register (row), From Basic: 

SYS DECrS3260 ¥ %c r r 
where both variables are within the 
range zero to seven. 

$3662 Over- writes the RAM characters with 
the ROM set* 

S3S2F WARM START. Thh is the call for 
restarting the editor when re-entering 
from a user^deflned option. Before 
catling this address remember to reset 
any windows that may have been used, 
especially Area 4. 

The following commands only 
affect the character indicated by 
Area 5. Any other characters which 
need to be altered must first be 
called to the screen by the routine at 
S3GD6. 

S32D5 Clears the character in Area I. 

S32EC Inverts the current character, 

$3306 Mirrors the bottom half of the current 
character into the top area. 

S332D Mirrors the top of the current charac- 
ter into the bottom half. 

$3354 Flip the character in the horizontal 
plane. 

$33S4 Rotates the character by 90 degrees. 
$33D 7 Mirrors the right half of the character 



onto the left side, 
S340E Mirrors the left side of the character 

onto the right half 
$3445 Flips the character in tke vertical 

plane. 

S36A0 Copies one character from ROM into 
the current RAM slot. 

When the End Editor option is 
used, the pointer remains operative 
and can be used in the user-defined 
function, 

Redefining characters can be en- 
joyable and satisfying, the 128 Font 
Editor can increase the enjoyment if 
it is used wisely. 

Table 1: The Function Menu 
COMMAND FUNCTTON 
LOAD Loads a font from 

disk after allowing its 
name to be input via 
Area 4, The font is 
placed into the RAM 
locations for the cur- 
rently selected char- 
acter set* 

SA VE The current character 

set is saved to disk 
after its filename is 
input through Area 4* 

NE t¥ A IT This replaces all of the 

current RAM char- 
acters with a copy 
of the corresponding 
ROM set 



Area 1 - displays an enlarged pixel map of the 
current character* By muring the pointer onto 
one of the pixels and pressing the fire button, 
the pixel is inverted. In other words, a pixel wilt 
be turned on if it is off and vice versa ; 



Area 2 - contains the current hexadecimal 
values of alt the rows of the character in Arm 1. 
This facility allows the user to enter a hexadeci- 
mal digit which is automatically poked into the 
corresponding character row. If for example, 
the key is pressed when in this mode, the 
selected nybble of the current character row 
would be fully set Such an alteration 

would he reflected hy the turning on of all the 
corresponding pixels on the Area I pixel mop. 



Area 3 - main mem window which is subdivid- 
ed into twenty options in two banks of ten. The. 
pointer can he moved up and down the options 
until the desired action is highlighted. When 
the fire button is pressed, the option is executed. 
The first menu also shows which of the two 
character stti is currently on display and the 
final option swaps one menu for the other* 




Area 5 - a similar colour function to Area 4 but 
this time the foreground is affected, It is also 
this area which displays the current character 
at its normal size- 



Area 6 - displays the hexadecimal value of the 
screen poke for the character displayed in Areas 
I and 5. The value can he changed in the same 
way as the hexadecimal value in Area 2 and the 
corresponding character wilt appear in Areas 1 
and 5 ready for editing- 



Diagram 1 - The Screen Layout 



Are* 7 - has three elements. The central section 
shows a portion of the current character set 
which surround the character shown in Area 1. 
Two mid-line markers indicate which of these 
characters is currently displayed* By clicking 
the fire button on the arrow indicators at each 
side of the window the row can be. scrolled 
backwards and forwards to select a new charac- 
ter for editing. 



Area 4 - serves as the command line but can 
al$Q be used to change the background colour. 
When an input is required, a prompt appears in 
this zone and the response is displayed as the 
characters are typed ml 
To change the colour, the pointer is moved to 
this zone and r each time the fire button is 
pressed t the background is cycled on to the next 
of the sixteen colours in the range. 
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NEW ONE The character c&rre- 

spending to the cur- 
rent RAM character 
is transferred from 
ROM, 

Replaces the current 
character with the one 
whose screen pake 
hexadecimal value h 
specified in the input 
window. 

Behave* in a similar 
way to COPY CHAR 
bur the two character 
shapes tire swapped. 
ROM /RAM CHR SET The character set used 
to form the editor 
screen display is tog- 
gled between the 
ROM and the RAM 
sets. 



COPY CHR 



Sfii4P CHR 



Ist/Ind CHR SET 



END EDI TOR 



OTHER OPTIONS 



Toggles between the 
first and second char- 
acter sets. 

Returns control to the 
Basic mode from 
which the edit&r was 
entered. 

Selects the second set 
of menu options. 



Table 2; The Manipulation Menu 
COMMAND FUNCTION 
MIRROR UP Mirrors the bottom four 
lines of the character in the 
top four lines. 
MIRROR DOWN The reverse procedure 
#f the MIRROR UP 
/unction. 

MIRROR RIGHT Takes a mirror image of 
the four right-hand co~ 



MIRROR LEFT 

FLIP VERT 

FlIPHORZ 

ROTATE 

INVERT 

CLE4R 
MAIN MENU 



lurnm and c&pies them into 
the left four columns. 
Has the reverse effect of 
the MIRROR RIGHT 
function. 

The current character is 
laterally reversed* 
Inverts the current 
character. 

Rotates the current charac- 
ter through 90 degrees. Re- 
peatedly select this option 
to rotate through ISO and 

270 degrees* 

Each pixel is reversed out 
s& that any on pixels are 
turned off and vice versa. 
The current character is 
erased, 

Selects the function menu. 



PROGRAM: 1£B FONT EDITOR 



5 GRAPH I CI, 1 ■ REM MOUE BASIC AB 
QUE n.CODE 
B GRAPHICS, 1 
10 DATA 3000 

S0 DATA 4C , 04- , 30 , 50 , A3 , SB , BG „ 0 
3, 30, 50, 62,35, A3, 50, BO, 03, 30,5 
0.^2,36,055^ 

30 DATA AD,2C,0A,59, F0,03,08, B 
D,5C,0A, AS, 00, BO, 00, 3C P 90,00,0 
4,60,00, 05C9 

40 DATA 30, 3O,00 P 05 P BD, 00,3E,9 

□,00,06, aa,00 f 3F a so, 00,07,30,0 

0,3A,3D,0SB1 

50 DATA 00,0c, BD, 00, 3S, 30,00,0 

D, E;B,D0,D9, A3, OE, 50,02, FF f SB, 0 
0,0C,4C,075C 

60 DATA SF , 39, AE, 36,30, EB T E0,1 
0,00,05^2,00, EC, 37, 30, F0,F4,B 

E, 3E,30,0A1S 

70 DATA BA P 4B P A2,DB,B6,FC, A2,0 
0 , B6 , FB , A0 > 00 . 31 , FB P CB, 00, FE, E 
5,FC, AG,0D3B 

S0 DATA FC P E0,DC,D0,F1,6B, AA,B 
D,B5 P 30 P 20, 02^,60,90, 05, 1C,9 
F B 9E, 1E,0E53 

90 DATA IF, BE, 61,95,36, 37, 33, 3 
3, 9A, 33, 01 ,02, AE r 37 ? 3G,EB J E0, 1 
0,00,02,0386 

100 DATA A5,00,£;c,35,30 p F0 p F4, 
BE, El , 00,0=;, 37 , 30, 60,A2,CE ? 65. 
FE, A2,05 B 0AFB 

110 DATA 86 , FE , AE, 30, A0, 00, A3, 
50,91, FB, CB, CO, 05,00, FB, AS, FB, 
LB ? B3,59,0ABE 

150 DATA BS, FB, A5,FC, B3, 30,95, 
FC, E8, E0 p 05, DO, £3,60,80,50, 06, 
4B,20,FE,0E3E 

130 DATA 30 B BD, 62, 06, BE, 63, 06, 
68,43,50, 10,31,58, ie,69,F8, A0, 
00,39,40,0534 

140 DATA 07, 19,63,01,CB,C0, 11, 
00 , F5 , 60, 18,43,50, 05, 31 , AA , SB , 
4A , 4A , 4A , S6ED 

150 DATA 4A,E3,0F,CB,0A, 30, 05, 
£3,33,63,30,60,20, 16, 31,4c, 31, 
31, AE, 03, 05CB 

160 DATA 30,BE P FC,A2,00,3G,FD, 
A2,03, 13, 0A, 2E,FD',CA P 30^3,65, 
FB, AS, FO,0375 

170 DATA 55, FC, B5 , FC , 50 , AS , 04 , 
BE,4F, 31 , A2, A4,5E,4E,31 , A0,0E, 



AE, 00, Bl ,093c 

180 DATA FE , 3D , 88 , 31 , F0, 05 , A3 , 
A0 , 4C , 40 , 31 , A3 , 50 , 30 , E4 4 05 , E8 , 
E0,08, 00, 03E3 

150 DATA EA,AD,4F,31,90,6E,3l, 
AD , 4E, 31 , 3D, SD, 31 , Bl , FB, E0, FB, 
30, 49, BA, 0563 

200 DATA A£,0O,48,63,3D,BC,05, 
CA,E0,0B,D0,F7,A9,28, 1B,ED,4E P 
31 ,BD,4E,0SE9 

510 DATA 31,30 P 03,EE,4F,31,CB, 
C0, 03,DC,BB,50,B0,40 P 20 P 10, 0B, 
04,02,01,06A7 

320 DATA 4B,BA,4B ,AD P 5D B 0B ,20, 
IS , 31 , 6B , IB , 65 , FB , B5 f FB , 90 , 05 , 
E6,FC,58 ? 0BCD 

230 DATA AA, BO, 65, 31 , AS, 00, 41 , 

FB, ei p FB,AD,5D,0e,4C, 10,31 ,, CB r 
0A, F0, E0, 0BFA 

E40 DATA 13 , 0A , AB, BB , 86 , BB , C7 , 
31,49,ES,C6,31,48,60,F7,34,S7, 
35,61,38,0673 

250 DATA 3F, 36,05,37,55, 37, AS, 
37,08, 37,26,33, A5, 52, 8G,FD,A5, 
35, BE, FE, 0BB7 

260 DATA A5 , DF , BG , FE , A5 , 04 , BG , 

FC , AB, 0A, 48, A0 , 00 7 HI „ FB, 4B, Bl , 

FD, 91,FB,0BF3 

270 DATA GB,5l,FO B CB p C0,0E,D0, 
Fl, A5,FB, 1B,B3 P BB, B5,FH,B0,0S B 
EG , FC P A5 p 0C2F 

580 DATA f D, IB, 53, 0E , 85 , FD k 50 , 
02 , EB , FE , 5B p lB,G3,FF,D0 1 D5 r AD l 
51,35, 49, 0A57 

230 DATA 01 ,60,21,32 ,60,00,20, 
0D,09 P 12, 12,0F, 15 p 20, 15, 10, E0 ? 
20, E0, E0.0581 

300 DATA 20,00,03, 12, 12 h 0F , IE, 
50, 04, DF, 17, 3E, 20,53, 20, 3D ,39, 
IE, IE, 3F, 017C 

310 DATA 15,50,12,09,07,03,14, 
E0 ? E3, 0D, 09, 15, 15, 0F, 12, 50, EC, 
09, 0G, 14,0155 

3E0 DATA 20, 50, 50, 06, 0C, 09, 10, 
50 , 0B , 0F , 15 , 1 A , 20 , 20 , 50 , 50 , £0 p 
05, 0C, 09, 01 A3 

330 DATA 10,50 p 1G,05, 15, 14,50, 
20,20,50,20, 12, 0F, 14,01, 14,05, 
50,20,20,01C0 

340 DATA 20, 20, 50, 50, 50, 03 P 0C, 
05, .01 , 12,20,50, 50, 20,20 ,E0, E0, 
S0,20,03,01F0 

350 DATA 0E, 15, 05, 15, 14, 2G,ES, 
50 , 50 , 20 , E0 , 50 , 00 , BE , 31 , 33 , 9E , 



A0,BF,90 S 05B3 

360 DATA 94,B9 i BF,SE,93,A0 1 C3 l 
0A , D0 p 03, 4C, DB p 31 j IB, OA, AB, 68, 
8B,H9 1 C4 B 0BBF 

370 DATA 32,46, BB,C3,3B,4B,60, 
05 P 33,2C,33 P 0D,34,DG P 33,53,33, 
44, 34,63,0635 

3B0 DATA 33,04,3E,Ei,32,AD,5E, 
0G,50, 16,31,60,00,95, 31 r FB , CB , 
C0 1 38 1 DO 1 0SF1 

390 DATA F3,AD P 5D, 05,50,10,31, 
60^0,50,06,20, 16,31, A0, 00, 81 , 
FB,49pFF,07B5 

400 DATA 91,FB,CB,C0, 0B, O0,F5, 
AD, 51} p 05, 50, 10,31,50, AD ,60, 05, 
50,15,31,0929 

410 DATA A0,04pA2,03,36,FO,Bl, 
FB , B4 , FE p A4 , FD , 31 , FE p EG , FE , SB , 
64, FO, A4, 0088 

450 DATA FE,3B,C3,BB P D0,EC,AD, 
50,06, E0, 10 r 31 , 50, AD, 5D, 05, 20, 
1G,31 ( A2,0S0O " 

430 DATA 04, 00,03, BB B FD B B1 pFB, 
B4 , FE , A4 , FD , 31 , FB , C6 , FE , CB , B4 , 

FD, A4,FE,0E34 

440 DATA 33,C9,FF,O0,EC,AD P 5D, 
0G, 50, 10, 31 ,60, AD, 50,06, E0, IB, 
31, A0, 00 ,0804 

450 DATA A2,07,BB,FD, Bl , FB,48, 
G4,FE,A4,FD,Bl,FB,e5,FD,EB,91 , 

FE , AS , FD , 0E0? 

4G0 DATA B4,FD,A4,FE,91,FE,C5, 
FD,CB h C0,04,D0,E3,AD,5D,06,20, 
10,31,50, 0BB2 

470 DATA AD,5D, 06,E0, 1B P 31,A2, 
00 , BA , 90 , CF , 33 , EB , E0 , 0B , D0 , FB , 
A5,00, A0,031C 

4B0 DATA 00, Bl, FS , 3D , 88 , 31 p F0 , 
0A,B3,C7,33, ia,7D,CF,33,5D r CF, 
33, C8,C0, 3A3D 

490 DATA 0B,O0,EA, E9, E0,0S, 00, 
E3, A0, 00 S B3,CF, 33, 91, F5, CB , C0 , 
0G,D0,F6,0CB2 

530 DATA AD, 50,06,20,10, 31,60, 
0 1 , 05 , 04 , 08 , 10 , 50 , 40 , B0 , 00 , 10 , 
00,E3,0F,03D5 

510 DATA U,31,C7, AD,5D,0G,50, 
16, 31 p A0 , 00 , Bl p FB, 29, F0, 31 , FE, 
CB , 00 , 03 , 0901 

5E0 DATA O0,F5, A0 P 00, AE,00,B1, 
FB , 30 , 33 , 31 , F0 , 09 , 60 , C7 , 33 p IB p 
71,FB T 91,0ABD 

530 DATA FE , EB , E0 , 04 , 00 r EC , CB , 
C0 k 03,D0 1 E5 1 AD,5D,0B,20,10,31 i 
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540 DATA 06 , BO a 16,31, AO, 00, Bl, 

FE, 29,0Fp31,FBpCB,C0,08,D0,F5, 
A0,00 5 A2,03l4 

550 DATA 04 , Bl , FB , 3D , 93 , 31 , F3 , 
jWp, BD, C7, 33, IB, 71 , FB , 31 , FB , EB , 
E0,0B,DO a GB05 

5B0 DATA ECCS^B^B, D0 , E5 , AD. 
50,06,20, 10,31,50, AE, 00, BA, 3D. 
CF, 33,E8,09E5 

570 DATA EC, 0G, DO , FB, AD, 5D, 0G h 
20 , IS , 31 , A0 , 00 , A2 , 00 , Bl , FB , 3D s 
&8 P 31,F0,O8FB 

580 DATA 0A,B3,CF,33, 1B,7D,C7, 
33,33, CF.33,EB,EG,EB,DG,EA,CB, 
C0,0B,D0,0AD9 

590 DATA E3,A0,00,B9,CF,33,91, 
FB , CB , C0 , 08 , D0 , F5 , AD , 5D , 35 , SB , 
10, 31 ,E0, 39F1 

600 DATA 15 , AS ,11, A3 , 1 A , E0 , F0 , 
FF p 60 , AS , 00 , A9 ,28, 90 p EC p 34 , EB p 
E0 T 0B,O0, 03SF 

B10 DATA FB, A2 , 00 , BE t FE p 20 p E4, 

FF, FO , FB , 4B , A3, 07, E0, 02 , FF , 6B, 
□3,00, F0 P 0C20 

G20 DATA 1 A, 03, 14, F0, 17,03,23, 
30, E8, C3 p 7B p B0 , E4 p A4 p FB B EB . FB , 
99 T EC,34,0C73 

S30 DATA E0,BE, FF p C0 ? 0A ? 30, BB, 
53, A4, FS p F0 , Dl fc CB,FB f A3.SD, 20, 
~B2, FF , A3 , 0092 
540 DATA EG EG a BE, FF, A3 ,50,20, 
D2, FF , A3, SO, BB , 33 , EC, 34, 4C, Al , 
34,4E.2E,09E7 

GS0 DATA SO, 20, 20,20, 20,20, 20, 
E0 a E0 , 20 , E0 , 20 , 20 , SS , 3** a A2 , 00 , 
BP , AE , 3S , 049E 

SS0 DATA E3, DE.FFjEB., E0 1 17,00 , 
F5 P IB, A2, 13, A0, 1 A , 20 , F0 y FF , 30 , 
91,3*1, A9,0AB3 

370 DATA 00,20,30,FF, A3,0D, A2, 

EA , A3 , 34 p 20 , BB , FF , A3 , GG v AE a GB , 
A0,0O, 23,0BE4 

EB0 DATA BA , FF , A3 , 00 , A2 , OO , AC , 
03, 30,20,D5,FF,B0,07, AD,5D,06, 
E0 a 10,31, 07FF 

630 DATA 60,18^2,15^0,10,20, 

FG, FF, Ac?, 00 , BO, 53 , 35, 20, BE.FF, 

EB, E0,05,03AO 

700 DATA O0 p F5 p B0 p 45 p 5E,5E a 4F, 
52, 20, GG, 34, A2, 00, 60,06,35,20, 
DS,FF 4 E8 + 03EE 

710 DATA E0, 17^0, F5 P A2 P 13, A0 P 
lAjia,E0 ? F0,FF,E0, 31 , 34 , A3 , 00 , 
20,90, FF,03BF 

7E0 BATA A3 , 0D ? A3 ? E A p A0 , 34 , 20 , 
BD, FF , A3 , 00 , A2 , 0B , A0 , 01 p 20, BA P 
FF , AE , 03 , 0370 

730 DATA 3 0 . B E „ F C . A E a 0 0 a BB , F B , 
A3 p FBp A2,00, ACp03,30,CBpCa,C8, 
C8, CB,CB p 0BAA 

740 BATA Cg,C8,2G,Ee,FF,B0,96, 
AD , 50 , 05 , E0 , 10 , 3 1 , 50 a 20 a 20 , 20 a 
4C,4F,41,07I}A 

7S0 DATA 44, 11, 3D, 3D, 3D, 3D, 3D, 
3D , 45 , 4F , 4E , 54 , 20 , 4E , 41 , 4D , 45 , 
20 , 20 , 30, OSDB 

750 DATA 20,53,41,55,45,11,30, 
9D,9D,3D,9D,3D,46,4F,4E,54,20, 

4E, 41,40,0741 

770 DATA "5,30,20,53, 20, 43, 4F, 
50 , 53 , 11 , 30 , 3D , 3D , 3D , 90 , 3D , 43 , 
4B,41,5a,0SDD 

790 DATA 42,43,54,45,52,20,11, 
SO, 30, 3D, 3D, 3D, 3D p 3D ? 3B , 3D , 3D , 



4E.55, 4D,39E2 

730 DATA 42,45,62,20,24,20,20, 
E0 a 40 p 4F h 5E , HS , 1 1 , 9D , 9D a 9D , 90 , 
ED, 90, 43.06BG 

B00 BATA 4B, 41,52,41,43,54,45, 
52,38, 11,SD,SD S 30,30,30,30,30, 
3D, 3D a 3D a 0B3B 

B10 DATA 4E, 55,40,42,45,52,20, 
24, ll a S0 a E0,45 p 4E p 54, 45, 5E , E0 , 
41,90,30,0577 

820 DATA 3B a 3D,3D,3D, 3D h 3D , 3D , 
11,43,45,58,49,44,45,43,43,40, 
41,4G,3D,0eiB 

930 DATA 9D,3B,3B,3B P 3B,3B P 3G P 
11,4E,55, 40,42,45, 52, AD, 00, FF, 
4B, A9,01,OBC3 

B40 DATA 9D,00,FF,A9 a 00,B5 i FB ( 
AD, 03, 30, 1 8 , 63 a E0 , B5 a FC , A5 , 00 , 
B5 P FO,AD,0A1F 

950 OATA O3,30,B5,FE, 1B,63,©B, 
A A . A0 p 00 , El , FE , 91 a FD a CB a DO a F9 a 
ES,FC,EG,0C1C 

950 DATA FE p E4 , FE , 03 a EF a 58 , 50 , 
00. FF. A3, 50*05, 30, 10, 31 ,30, AO, 
5D a 05, 49,0330 

970 DATA 20, IB, 31, A5 . FC , 59 p BB , 
95, FE, A5, FB P 95 , FD P AD p 00 , FF r 4B , 
A3,01,BD,0AF1 

980 DATA 00, FF^flO, 00, 81^0,31, 
FB,C9,C0,0S,D0,F7,EBpBB,GG,FF a 
SB, 20, 10, OABC 

890 DATA 31,80,20, AE, 30, 20,66, 
34 , A0 , 00 , 33 , 34 , 36 , 20 , 02 , FF , CG , 
00, EE, 00, 0BA5 

ESC EATA F5.SQ. E4 , FF , F3 , FES, Ah?. 
00pDD p F5p35pF0,0B, EB, E0, 10,00, 
F6 a 4C,El,0D51 

910 DATA 36,60,30,31.32,33,34, 
35 , 35 , 37 , 38 , 38 , 41 , 42 , 43 , 44 , 45 , 
46,20,ee,04E0 

3S0 DATA 34 1 Ae j 00 1 BD J DE > 3S,S0 1 
Oe, F F T ES , EO , 2 E , DO , F5 , 20 , E 1 , 35 , 
2O,D2,FF,0B77 

330 DATA 3 A , 3 A , OA , OA , OA , GS , FO , 
20 , El , 3E p 50 , 02 , FF p BA , 05 , FD , S0 k 
1S,31, A3,07F4 

340 DATA FB P 4B, A5.FC, 4B p AD , 50 , 
03,20, lB.Sl^B.BS.FE.SB^SpFDp 
A0 P O0,E1 ,09C9 

350 DATA FD a 31 , FB , CS , C0 , 0B , D0 , 
F7 p AD h 50 , 0S , 20 , 10 , 31 , 60 , 20 , 68 , 
34, AE.0O.332F 

BEG DATA ED , 09 , 35 , 20 , D2 , FF , EB , 
E0 , S3 , 03 , F5 , SO , El , 36 , 20 , Dc? , FF ? 
9A,0A,0Ap0ABB 

370 DATA 0A, 0A.S3, FD.20, El, 36, 
S0 J D2,FF,BAp05,FD,S0, 16,31, A3, 
FB , 4B S AS S 033E 

333 DATA FC a 4B , AB , 3D , 03 , 20 , 16 , 
31,68,95,FE,S8,B5,FB a A0 ? 00,B1 , 
" FB,4B, Bl, 03DS 
990 OATA FD, 91 n FE, BB a 91 a FB , OS , 
C0,0B B D0 P F1 1 AO, 5D, 06, 20, 10,31, 
30, AD,2C,0A7A 

1GGE DATA 0A v S3 , 00 , C3 , 04 , 00 , 15 
, AD p 20 p 0A p EB , F3 , 03 , 0B , BO, 2C, OA 
^0,01,09,0347 

1010 DATA S3, B0 P 03 ,01,30,01 , 05 
, 50 , AD , 2C , OA , 23 , F3 , 03 , 04 f BB , EC 
,0^0,01,0503 

10E0 DATA 0S,23,B0,03,3F a BD,Dl 
, 05 , 60 , AD , 2C , OA , 23 , 02 , F0 , 23 , A3 
,8Ep20pP5 fc 0SD3 

1030 DATA FF , A2 , 00 , ED , F8 , 05 , 25 
,B0, lD.EB.3B.9n, FB , 35, EB, E0,03 



,D0 S FO, A3.0A4D 

1040 DATA 20, BD, 03, 30, AD,5D,0G 
, 20 s 10 , 31 , 60 , A3 , OE , 20 , D2 , FF , AS 
P 00,BD,F8,O7B0 

1050 DATA 06,23,80,10,23,33,30 
p FBj05,EB,E0,03,D0,F0, A9,29,9D 
a 03,30,AO,0GBF 

1030 OATA 50,06,20,10,31,50,31 
, 13, 14 , 32 , 0E , 04 , GG , GG , 30 , AE , G3 
,0D,FO h FB,06FC 

1070 DATA AD^S.OD/Ca.FFpFO, IB 
, 4B , A0 , 00 , 90 , 55 , 00 ,S0 , AE , 30, BB 
, AE , El , 3E p 0B4O 

iGfifi UP7P 130 .05, EE, 34, 31 , 4C , SF 
,3B P 2G, AE,32,4C,2F,3B, AD,S3,0D 
, AC,64,0D,057B 

1G90 DATA C3,04,30,22,C3,0C,B0 
, IE, CO, 04, 90, 1A,C0,0C,E0, 16, 8B 
,20,99,98,0842 

1100 DATA 84 , FB , A5 , FE , IB , 53 p FC 
, 20 , 90 a 31 , AO , 00 , BC , EG , 00 , 40 , £F 
, 3G , CG , 04 , 089D 

1110 DATA 90,17,09,07,90.13,00 
P 0E,30,OF,CO, 11, B0, 33, S0, 5S, 30 
, A0,00,8C,0701 

1120 DATA 6G,0D,4C,2F,3B,C3,1A 
, 30, 17,C9,S5, E0, 13.C0, 1 1 , 30 , 0F 
,00, 13,30,0737 

1130 OATA 0B , E0 , 3B . 30 , AG, 00 , BC 
, EE , 0D p 40 p 2F , 3B , 03 , 02 , 30, ID, 03 
,05,B0,13 P 0B54 

1140 DATA C0, 14,90, 15, CO, 17 P B0 
, 1 1 , EE , 3D , 06 , AD ? 5D , 06 , S0 a DB a 30 
, AO a GG a BC a 07C4 

1150 DATA SS,0D,4C,2F,3B,C3, 16 
, 50 a ID a CB , 15 , BO , 19 , CO , 14 , 90 , 15 
,CG, 17,30, 075D 

1150 DATA 1 1 , CE , 5D , 05 , AD , 50 , 3 B 
, 23, D6, 30, AO, 00, 30,66,00,40^ 
, 33, C8, 10,06A3 

1170 DATA 90,23,09, 12, BO, IF, 00 
, 04 , 30 , IB , CO , OC , BO , 17 ± 1 3 , B3 , F0 
,89,98 , 88,0968 

1130 DATA BB.BB/FBjSe.flG, FBpBO 
, ^S, 33, A3, 00, 90,66,00, 40, 2F,3B 
,O3,0A. 33.0B33 

XI 30 DATA lA r 09,00, B0 , 1B,CG,0F 
, 80 a IE , 00 , 10 s BO , 0E , IB , 63 , F6 , 20 
,7D,3S, A0, 07At 

1S00 DATA 00,30,56,00^^,33 

^o^F^e^e^A^e^o^E, se, be 

, FE, AD, 5D S 0732 

1£10 DATA GE,20, lE a 31, EB, 00, 13 
, S3 , A8 , AS , FE , 0A , OA , OA , 0 A , 35 , FE 
,B1,FB,23,07F1 

1220 DATA 0F;OS , FE ,31 , FB, AD, 50 
,06,20,06,30,60,68^3, Bl h FB , S3 
,F0,OS,FE, 0AOC 

1230 DATA 31, FE, AO, 5O P 0B,E0.DB 
, 30 , GO, 48 , 20 , CE , 35 , BB , FE , A3, 5D 
,85, FB, A3, 0A41 

1240 DATA 0G, EE, FC.EB, AA, AB.00 
, -:3 , E3 , 33 , 03 , 03 , 4C , 53 , 33 , 00 , 00 
, 00 a 00 p 00 , 0EEA 

1250 DATA 00,00,00,00,00,00,00 
, 00 , 00 L 00 , 00 , 00 , G0 , 00 , 00 , 00, 00 
,00 , 33 , 33 : 0000 

12E0 DATA 00 , 00 , 00 a 00 a 00 a 00 a 00 
,00,00,00,00 , 00,00, 00 , 00 , GG p GG 
a 00 a 00 a GG a GGGG 

1270 DATA GG , 00 p QQ p GO, G0 a GG a 0G 
, 30 , 00 , C E , C 0 , 00 , 00 , 00 , 00 a 00 , 0tf 
,GG,G0,G^,GGGG 

1SS0 DATA 00,00,00,00,00,00,00 
, 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , GG 
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, 00 , 00 , 00 , 0330 

1530 DATA ©0,00 ,00,0c j 33, 00,00 
, 00 , 00 , 0E , 00 , 00 , 00 , 00 , 00 , 00 , 30 
, 00 p 00 p 00 , 0000 

1300 DATA A5,40,CA,ED,97,0D,8D 
, 00 h 0£ , E0 „ 00 , D0 p TS , AD , 04 , 0A , 35 
.FE.BD, 04.0B9C 

1310 DATA 0ApAD, IS P D0 ,23,FE,0B 
, 01 , BD , 15 , 00 , A3 k 5E , BD . 00 N EG , EE 
,01,DO,AD,08AE 

1320 DATA 10, 00 , 59 t FE h ED , 10 , 00 

,1=13,33,80^9,07^8^1,90,57,00 
,AD a 14.03,0303 

1330 DATA ED , 5F , (3D , AD , IE , 03 , 6D 
, 50 , 0D . 79 , A3, 53, 90, 14 , 03, A3, OC 
,90, 15,03,0E29 

1343 DATA 5B,G0p AD,E5,0B,C3,FF 
,FO,O3,30, 39, 3D, AD, 00, DC, AA, 29 
,01,00,09,0620 

1350 DATA A3, FC, 18,60,01,00,30 
,01 S D0,BA,58,05,D0,09, A3, 04, IB 
, BO .01,00, 07Eft 

13B0 DATA BD, 01, 00,8a, 29, 04, 00 
, 13, A3,FC, 19,60,00,00,90,00,00 
, E0 , 09 , AD h 0EH4 

1370 DATA 10, D0 P 49 ,01.90, 10, D0 
,BA p 29p0B h D0. 13, AS, 04, lB.BD.OO 
,00 ,3D, 00, 0GC4 

13B0 DATA 00 p 30 , 09 , AD , 1 0 p 00 , 49 
, 01 3 80, 10 , D0 , BA p 4B p AD p 00 , D0 , 4A 
, AA K AO, 10,0BAC 

1390 DATA 00, SB, 01 pF0p05.BA,lB 
pG3 , B0,AApBA K 4Ap4A, lB,G9,FDpBD 
p SI, 00, AD, 3B5B 

1400 DATA 01 pO0 t 4Ap4Ap 1B K G3,01 
,4A, 18 , 59 , F9 , BO , G5 , 0D , EB , 29 , 10 
pO0,4E,AE,07l4 

1410 DATA 66, OD, 00, 13, AD, SI , 30 
,00,63,00,00,05, AO^BS, 00, CO, B4 
,0D,F0, 11.07DE 

1450 DATA AO, 61,00,60, 93,00, AD 
,E2, 00,80,54,00^9, 01, 80,66,00 
, AOpSl,0D,0BF7 

1430 DATA C5, 25,30,19,03, 17,90 
, 15 p ADpB3 p 0D p 18pG3,FH, C9,OA,B0 
,06,69,01,0?^ 

1440 DATA BO , B5 K 0D p 20 p 3B p 0B . 4C 
,SC, 00, A9, FF, 80 ,65 ,00 ,40,50, 00 
p A2 , 00 , 8E , 06A5 

1450 DATA 93,00, AO, 00, 9C, 64, 00 
, 4C , 01 , 0D , EA , EA , AO , BG , 84 , B3 , A0 
p04 s 84,B3p0BAa 

1460 OATA AA, A3, 29, 19,83,85,30 
p 05 p EG s H3 , BE p BB K OA , D0 , F2 , A0 p 0E 
, A9,B0, !Bp0AB7 

1470 DATA 71 1 B5 r Bl p B5 p BB.D0,FB 
p GO s EC . 5F p 00 k 00 p 00 , 00 , 00 p 00 p 00 
i FF , 00pC0p07AB 

14B0 DATA 00 h 00 p E0 p 00 B 00 p E0p 00 
,00, 70, lBp00, 70, FE, 00, 7BpEF,00 
p3Fp77p00,05DE 

1490 DATA 3B,B1,90, 3D , BO , CO, ID 
, BO, CO, 1C,7B, E0, 10, F7, £0,06, EF 
i F0pOF,OF,0AD3 

1500 DATA F0, 07, IF, F9, 07, GF , FB 
,03,EF,F0,01,F7,E0,00,FF,CO,00 
,7F,00,00,O9D4 

1510 DATA 1C, 00, 00, 00, 00, 00 s 00 

, 00 , 00 p 00 , 00, 00, 00 s 00, 00 ? 00 p 00 
,00, 00, 00, 001C 

1520 DATA 00 , 00 , 00 , 00 , 00 ? 00 „ 00 
„ 00, 00, 00 , 00 , 00 , 00 p 00 , 00 , 00 , 00 
,00, 00, 00, 0000 

1530 DATA 00,00,00,00,00,00,00 
, 33 , 00, 00, 00 , 30 , 00 , 33 , 33 , 30 , 00 
, 00 , 00, 00, 0000 

1540 DATA 00,00,00,00,00,00,00 
, 00,00,00, 00, 00, 00,00, O0 3 00 s 00 
, 00 , 00 p 00 , 0000 



1S50 DATA 00,00,00,00,00,00,03 
, 00, 00 , 00, 00, 00 p £0,30, 30 , 20 , R0 
p 50, 30, £0,0100 

1560 DATA 20,50, 50,20,20, 50, £0 
p 30 p 30 , 30 ,.50, 50,30,23,50,50,30 
,20,50,20, 03B0 

1570 DATA £0,50,30,30,20,50,50 
,30,20, 50, 53, 20, £?0,7O, 40, 40, 40 
,40,40,40,0390 

15B0 DATA 40,40,40,40,40,40,7? 
, 40, 40, 40, 40, 40, 40, 73, 40, 40 p 40 
p 40, 40, 40, 0564 

1580 DATA 40, 40 , 40 p 40. 40 p 40, 40 
,4O s 40,40pSE,30,30 p 5Dp70p40p40 
,40,40,40,0538 

1800 DATA 40p40p40,40p40pBEpGD 
, 40, 40, 40 , 40 , 40 , BE p5D K 70, 40, 40 
,40,40,40,0505 

1B10 DATA 40,40,40,40,40,40,40 
,40, 40, EE .50 ,50, 30 ,50,60 ,50, 50 
p30p20p50,04A6 

1G20 DATA 50,50,50,20,20,60,40 
,40, 40 1 40,40,EE,5D,5D,SD,20 P 30 
,20,0F, 10,0451 

1930 DATA 14, 09 p 0Fp0Ep 13.20,30 

,E0, 50, 50, 50,20, BB. 50, SO ,20 ,50 
, 20, 20, 50 h 0331 

1G40 DATA 20 p S0 , 30 p 50 , 50 , 30 , 50 
,54,30,30,20, 50, 5D, 60,60,40,40 
,40,40,40,0453 

1550 DATA 40,40,40,40,40,40,40 
,40,40p73 r 5D,50,50,5D,5D,2O,50 
, 50p20,2O,04AA 

15E0 QATA 20,20,50,50,20,30,20 
,54, 30, 30,20,5D,5D,5D,5D,20,0C 
,0F P 01,04,0355 

1970 DATA 20,50,50,50.50.50,50 
, 30, 23,GE,5Dp50p50.5Dp5O, 50, 20 
,20,50p50,0374 

1G80 DATA 50 ¥ 50, 50,50,50, 3D, 50 
,24,30,30,20,50,50,50,50,50,13 
,01, IE ,05,0354 

1E90 DATA 20,20,50,20,30,50,20 
,50,20, 50,50,20,20,50,50,20,20 
, 20, 50,20,0374 

1700 DATA 50, 50, 20, 20,50, 3D p 30 
, 24, 30, 30, 20, 5D , 5D , 5D , 5D , 20 p 0E 
p05, 17,20, 037F 

1710 DATA 01 p0C, 0C, 20, 03, 0B, 15 
> 13, 20, 5D,5D P 20, 20,50, 5D, 20,20 
,20,50,50.0200 

1720 DATA 20,50,50,20,50,30,50 
,54,30,30, 50, 50,50,50,50, 20, OE 
,05, 17,30p037F 

1730 DATA OF, OE, OS, 50, 03, 09, 15 
, 50, 50, 50, SO, 50, 20, 5D, =0,50, 20 
, 50,50,S0,02F3 

1740 DATA 20,20,50,50,20,30,20 
, £4, 33, 30,2O,5D,5D,5D,5D,20,03 
,0F, 10, 18,0370 

1750 DATA 50,01,20,03, 0G, 15 p 20 
l 20,50,5D,5D l 20p20p5Dp5D, 20 , 20 
,20,20,20,0312 

17G0 DATA 20, 50, 30 ,20, 50, 3D, 53 
f 54, 30 , 30, 30, 50, 50, SO, 5D, 20, 13 
, 17,01 p 10, 0370 

1770 DATA 50, 14, 17,0F,50,03,0B 
, 15, 13,80,50,20,20,50,50,20,50 
,50,2O,2O,05TE 

17B0 DATA 20, 20, 50, 20, 20, 3D ,20 
, 54 , 30 , 30 , 50 , 5D , 5D , 5D , 5D , 20 , 1 3 
,01,00,50,0375 

1790 DATA 03, 0B, 12.20, 13 , 05, 14 
,20,50,50,50,20,20,50.50,20,50 
,50,20,20,02FD 

ISOO DATA 20.20,20,20,20,70,40 
,40,40,40,40,70,50,70 , BD, 50, 31 
, 13, 14,20,04AC 

1910 DATA 03,08,15,20,13,05,14 



.20,50,50,50,50,50,50, 5D, 72, 40 
,40,40,75,0411 

1950 DATA 40,40,40,40,40,70,70 
, 40, 40, 40 , 40, 40, 40, 9E, 50,50,05 
,OE,04,20,04CF 

1B33 DATA 05 , 04 , 03 , 14 , 0F , 12 , 50 
,20,20,5DpGDp20,20,EB,GE,5D,20 
1 50p20pBD p 03A4 

1B40 DATA 40, 40,40, 40,40, 6E,5D 
,0D h 13p0F, 05,14,50,80, 5D r 50, 05 
,04,03.14,0374 

1B50 DATA 50.OF, 10, !4,08p0F, 0E 
, 13,50/50, 50,20, 20,50, 5D, 50 , 20 
, 50,20,30,035a 

1BB0 DATA 50,54,35,30,20, 50, 50 
T 0G,0F,OE, 14,50,50,5D,6D,40,40 
p40 1 40,40,04Ol 

1970 DATA 40,40,40,40,40,40,40 
,40,40,70,50,50,20,50,50,50,53 
,20,50,70,0541 

1880 DATA 40,40,40,40,40,70,50 
,05,04,08, 14, OF, 12, 90, 40, 40, 5E 
, 70 , 40 , 40 , 04AC 

1B90 DATA 40,40,40,40,40,40,40 
, 40 , 40 , BE , 50 , 50 , 20 , 50 , 5D , 60 , 40 
,40,40,7D,05AF 

1800 DATA 70, 40, 40, 40, 6E, 70, 70 
,02, 18,50, OA, 15 P 0C,0S,01,0E,5D 
,50,20,20,0403 

1310 DATA 20,20.20,50,50,50,50 
, 50 , 20 . 5D , 5D , 20 p 30 , 50 , 50 , 40 , 40 
. 40 p 40, 40 r 0424 

1330 DATA 71 p 40,40 p 40, 73, 50, 00 
,01 , 03,06, 03, 0E, 14,0F, 13p0Bp5D 
,5Dp30, 03, 034F 

1330 DATA 31, 32, 3B, 20,04 h 05 ,13 
, 03 , 53, 5D, 50, 50, 50 , BB , 40 , 40 . 40 
,40,4O,40,03E3 

1940 OATA 40,40,40,40,70,50,40 
, 40 , 40 , 40 , 40 , 40 , 40 , 40 , 40 , 40 , 70 
,50,50,30,0564 

1350 DATA 16,05, 15, 13, 09, OF, 0E 
, 20, 20, SDpSD, 20 s 20, 50,70,40,72 
,40p40,40,03DF 

13G0 DATA 40,40,40,40,40,75,40 
, 40 , 40 p 40 p 40 , 40 , 40 p 40 , 75 , 40 , BE 
,5Dp30 p 5B,0577 

1370 OATA 03 ,33,50, 20, 31, 33, 3B 
,37,50, 50.50, 50, 50,50,50, 3C, 50 
,1B, IB, 1A/03FD 

1BB0 DATA 19,1c, 10 , IE , IF , 20, 51 
, 55,23, 24, 55,55, 57, 5B.5D,3E,5D 
,5D,20p50, 035 A 

1330 DATA 20 , 50 p 30 p 50, 20, 20, 20 
,20.20,50, 5D, 50.50, 5D,SD S 40, 71 
, 40, 40,40, 0455 

5000 DATA 43,40,40,40,40,71,40 
, 40 , 40 t 40 , 40 , 40 , 40 , 40 , 7 1 , 40 , 7D 
, ED, 40,40, 05CC 

5010 DATA 40, 40 , 40 p 40 , 40 , 40 , 40 
p40,40, 70,50, 50, 50 , BO p 40 p 40, 40 
,40,40,40,0547 

5320 DATA 40,40,40,40,40,40,40 
,40,40,40,40,40,40,40,40,40,40 
,40,40,40,0500 

5030 CAT A 40,40,40,40,40,40,40 
, 40 s 40 , 40 , 70 , 50 , SO , 20 , 20 , 20 , 50 
,30,50,20,0410 

5040 DATA 20,20,50,50,20,50,50 
P 20 r 50 , 50 , 50 , 50 , 20 , 50, 20, 50, 50 
,50,20p50,02B0 

2080 DATA 20 p 50 ,50,50,20, 20,20 
, 20 p 50 , 53 , 23 , 20 , 00 , 00 , 00 , 00 , 00 
,00,30,00,0180 
20 BO DATA END 

G389S PRINT" DAT A ERROR IM LIME 
" FEEK C 85 ) +556 *FEEK C66> ; END 
53888 LDDP : I NPUT " F I LENAME FOR 
SAUE; ";N$:BSAUECNS) ,B0, PCS^TOP 
CE^EWD 
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GTX 



Compiler 




Supercharge your Basic programs by converting them 
to pure machine code 



he GTX Compiler is designed to 
convert a Commodore 64 program 
written in Basic into high speed, 
machine code. This code makes calls 
to standard functions stored in 
memory, called the run-time library 
which means that the compiled pro- 
gram is shorter because frequently- 
used routines such as add or subtract 
can be stored as subroutines. 

Before using GTX, the program 
to be compiled must already be 
saved on tape or disk. When the 
compiler runs, the title page will 
appear and three prompts for inputs 
given in sequence. 

The SOURCE NAME is the 
name of the Basic program to be 
compiled* If using tape, press 
RETURN to load the program. 

The OBJECT NAME is the 
name that the compiled program 
will be saved under. If using tape, 
RETURN will cause the program to 
be saved without a name. 

SIGN SPACE refers to the print- 
ing of numbers, In Basic a number is 
preceded by a sign space and ended 
with a space. Pressing RETURN 
will print numbers in this way. Al- 
tering the Y to N will print numbers 
with nei ther of the two spaces. 

The program specified by the 
source name will then be loaded and 
compiling will begin* There are two 
parts to this process: 

PASS I 

Each command is deciphered and 



the corresponding machine code is 
produced. The current Basic pro- 
gram line number is printed along 
with the present length of the com- 
piled program but, if any errors 
occur, the compiler stops and the 
error message is printed. The Basic 
program must then be re-loaded and 
modified if it is to be compiled 
successfully, 

Apart from errors^ any number 
of warnings may be given. These do 
not stop the compiler since the 
program can still be compiled but 
the results obtained with the origi- 
nal, Basic version will differ from 
those in the compiled version. 
Again, the original program must be 
modified if the results are to tally. 

PASS 2 

All jumps such as GOTO and GO- 
SUB have the correct addresses in- 
serted and any DATA is transferred 
within the program. 

If compiling succeeds, then the 
Basic program length and the com- 
piled program length arc printed 
along with the following options: 

R Run the compiled program 
S Save the compiled program 
O Output the run-time library 
C Compile another program 
E exit 

It is advised that the program is 
saved before running (option S) in 
case there is a problem. If using tape, 
a copy of the run-time library must 



be saved directly after the compiled 
program {option 0)> If using disk, a 
single copy of the run -time library 
will serve all the programs on the 
disk. Finally, the compiled program 
can be run using option R. 

Acceptable Basic 

The compiler does not accept the 
full set of commands available in 
Basic. Those that can be compiled 
are; 

PRINT (including , and ;) 

POKE 

PEEK 

IF/THEN 

READ/DATA/ RESTORE 

FOR/NEXT 

GOSUB/RETURN 

GOTO 

CLR 

SYS 

REM 

AND 

OR 

END 

STOP 

There are also restrictions placed 
on these commands but, although all 
this seems rather daunting, most 
programs require very little atten- 
tion before they can be successfully 
compiled. 

All numbers are 16 bit tin-signed 
integers 

This obviously means that CTX can 
not be used for complex programs 




So 

to 
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that require floating point numbers 
but the main concept for GTX is to 
transform relatively simple Basic 
programs, such as games, to fast 
machine code programs. This type 
of program usually only requires 
integer numbers so this limitation is 
not a major one, The lack of nega- 
tive numbers can cause problems in 
convening a program that was not 
specifically written to be compiled. 
However, this limitation can nor- 
mally be solved by changing the 
style of programming to incorporate 
numbers between 0 and 65535. 

For example, part of a normal 
Basic program consists of the 
following; 

10 PRINT"[CLSr 

20 P= 1 0*40+ 1024+20: EM 

30 A-P:F-P+D 

40 IFP>- 10*40+ 1024+39 

THEND=-D 
50- IFP<- 10*40+ 1024 

THEND=-D 
60 FORB=lTO500:NEXT 
70 POKEP,88:POKEA32; 

GOTO30 

As it stands this would not com- 
pile because of the negation of D in 
lines 40 and 50. The possible values 
for D are 1 and -1 ? the latter being 
out of range on GTX. Therefore, 
before the program could be com- 
piled, a few simple modifications 
would need to be made. 

Lines 30 to 50 must be changed 
to the following: 

30 A-P:P-P-1;IFD=1 

TMENP=P+2 
40 IFP>= 10*40+ 1024+39 

THEND=1-D 
50 IFP<= 10*40+ 1024 

THEND-1-D 

Now the program could be com- 
piled. In fact, when it was compiled 
it ran 36 times faster than the 
original 

Variables can only be single letters 

This can cause problems if the origi- 
nal has a large number of variables. 
To assist with this problem there is a 
single array available, Z, which is 
pre-dimensioned to 64 elements, taL 
Z(0) to Z(63). The DIM in the 
original program is not required bv 
GTX but if included it wiU be 



skipped. Any further dimensioned 
arrays will cause an error to be 
flagged. 

Expressions are evaluated from left 
to right 

In Basic expressions are calculated 
in a set order, not from left to right. 
Brackets take top priority, next 
come indices, followed by division 
and multiplication, then addition 
and subtraction, with Boolean ex- 
pressions (AND, OR, NOT) taking 
lowest priority. For example, 

A-3+6*2 

In Basic this expression would eval- 
uate A as being equal to 15: 6*2-12 
and 12+3=15, If compiled A would 
be calculated as being equal to 18: 
3+6=9 and 9*2+18. To ensure the 
compiled program and the Basic 
program obtain the same value the 
expression would need to be 
changed to: 

A=6*2+3 

This can cause problems when a 
program was written without com- 
piling in mind. By checking the 
order of all expressions and chang- 
ing this where necessary, the com- 
piled program should obtain the 
same results as the Basic version* 
During Pass 1 of compiling the 
order of expressions are checked 
and, if discrepancies are likely to 
occur j. a warning is given. The indi- 
cated expressions should be re-or- 
dered to ensure the program will 
operate correctly. 

Brackets are not valid expressions 

Brackets are only allowed with a 
PEEK command- Any other brack- 
ets must be removed before the 
program can be compiled. Usually a 
number of dummy variables are 
required to achieve this. An express 
sion such as 

A-5+((3*X)-8)/7-T/(4*Y~2) 

would have to be changed to: 

A-3*X-8/7+5:B=4*Y-2;B=T/B; 
A-A-B 

Only one PEEK per expression 

An expression such as this: 



A=PEEK(45)+PEEK(46)*256 
(order problem anyway) 

would have to be changed to: 

A=PEEK(46)*256:A-A+PEEK(45) 

before it could be compiled by GTX. 
This means the original Basic pro- 
gram is not as neat and will run a 
little slower but, thanks to the speed 
increase given by GTX, this is insig- 
nificant when compiled. 

No strings 

Strings are not incorporated at all 
The use of strings in the lype of 
programs intended to be compiled is 
usually very infrequent. Their only 
use is usually connected with a GET, 
There are a number of methods of 
emulating GET with the commands 
available, this is discussed later. 

AND and OR can not be used in 
IF/ THEN comparisons 

A program line which takes the form 

10 I FA= 30RA- 6TH EN 1000 
would have to be split into two 
separate lines before it could be 
compiled: 

10 IFA=3THEN1000 

11 IFA=6THEN1000 

The AND statement must also be 
changed when used in the context: 

10 IFA=4 AND A-7THEN 1 000 

This would become: 

10 IFA-4THENIFA-7THEN1000 

AND and OR are included in the 
list of available commands but are 
only legal when acting as arithmetic 
operators. Take the situation where 
it is necessary to strip off the five 
most significant bits from the con- 
tents of location 197. 

B=PEEK(197)AND7 

In this case, the AND is not operat- 
ing as a logic comparator so the 
expression can be compiled. If AND 
or OR are used in an IF/THEN 
statement their operation would still 
be treated as arithmetical and the 
Basic program would not operate in 
the same way as the compiled 
version. * 
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FOR/NEXT loops can not use STEP 
The STEP function can be emulated 
by adding another statement into 
the FOR/NEXT loop, 

10 FGRA=QTQ94QSTEF40:POKE 
1024+A f 102;NEXT 

would have to be changed to: 

10 FORA=0TO940:POKE:1024+ 
A,102;A-A+39:NEXT 

before it could be compiled. Note 
that A is only increased by 39 be- 
cause the NEXT statement automa- 
tically increments it by 1 ? resulting 
in a step of 40 for each loop. 

If the STEP is negative, it creates 
more of a problem, 

10 FORA-20TO0STEP-2: 
PRINTA:NEXT 

would have to be changed to; 

10 FORB=0TO20:A=20-B: 
- PRINTA:B=B-h 1 :NEXT 
Either of the above cases could 
be solved by a conditional GOTO 
loop. Taking another example: 

10 FOREA=920TO40STEP-40: 

POKE1024+A,160:NEXT 
could be changed to: 

9 A-920 

10 POKE1024+A,16G:A=A-40: 
IFA>=40THEN10 

READ/DATA 

This is almost the same as Basic 
except that the numbers stored in 
the DATA statements can only be 
eight bits (0 to 255 decimal). This is 
not a serious limitation in games 
because most DATA statements are 
used for storing user-defined char- 
acters or sprite data, where the 
values are only eight bits anyway. 

RESTORE is exactly the same as 
in Basic, 

The Z( ) array is restricted 

This array must always be used 

through another variable. 

10 POKEZ(AX44 

must be changed to: 

10 B=Z(A):FOKEB,44 

Missing commands 

The missing commands are rarely 



used and can often be forgotten or 
emulated using the legal commands. 

GET can be emulated in two 
ways. The first, and simplest, in- 
volves reading the keyboard directly 
using a PEEK. The values returned 
for each key are non-standard but 
for inputting only a few keys this is 
not a problem. The second method 
allows the keys to be read in ASCII 
and actually uses the same Kernal 
ROM routine as GET. 

10 GETA$:IFA$=" A'THEN 1 GO 
can be changed to either: 

1 0 IFPEEK( 1 97)= 1 0THEN 1 00 
or 

10 SYS65508:IFPEEK(780)= 
65THEN10O 

In the first case, a value is re- 
turned for as long as the key is held 
down, unlike the second case where 
the value is returned only once for 
each key press. 

RND can be emulated by read- 
ing certain memory locations that 
change frequently, Two of the best 
locations to use are the raster regis- 
ter {53266) and the CIA timer A 
(56324). 

10 A=INT(RND(1)*10) 

would have to be changed to: 

10 A=PEEK(56324)AND1S: 
IFA>9THEN10 



A different type of random state- 
ment would be: 

10 IFRND( 1 )<. 1THENPRINT 
"HELLO" 

Such a statement has a 10% proba- 
bility of printing 'HELLO'. The best 
way to achieve this with the compil- 
er is to change it to: 

10 IFPEEK(56324)<25THEN 

PRlNT"HELLO" 
This also gives a 10% probability 
because there are 256 possible val- 
ues for location 56324. The state- 
ment only reads to 25 of these 
values, so the probability calcula- 
tion becomes (25/256)* 100, which 
equals 10. 

CHR$ statements can usually be 
changed to a direct PRINT. If it is 
not possible to do this in your 



program then this alternative may 
be used: 

10 PRINT CHR$(A*4-9) 

can be emulated by: 

10 POKE780,A*4-9:SYS6549G: 
PRINT 

The extra PRINT is required be- 
cause the character is printed with- 
out a carriage return. 

Typing it in 

If you are using a disk then the 
programs can be entered and saved 
in any order. With a tape they must 
be saved in the correct order. 

First, enter Program 1 5 the loader 
that changes the address at which 
the compiler is loaded, GTX must 
always be loaded at this new loca- 
tion or it will be over-written by the 
program to be compiled. Save this 
loader at the start of the tape, 

Next, enter Program 2, the actual 
compiler. Do not run it yet because 
it must by loaded at the new address. 
It can be typed in at its run-location 
by entering the following direct 
command before starting, 

POKE44, 1 00:POKE43, i:POKE 
2560Q,0:NEW 

When the program has been en- 
tered, save it using the filename 
U GTX COMPILER", following on 
directly from Program 1 . 

Ensure that the computer has 
been reset before typing in Program 
3, the run-time library. Before run- 
ning, save this program on a spare 
tape or disk in case of fatal errors. 
Run the program and insert the 
original tape or disk, taking care not 
to erase the other two programs, The 
run-time library will be saved with 
the filename "RTL S \ The run-time 
libra ry must always be saved with 
this name even when working with a 
cassette tape. 

You should now have a complete 
Basic compiler. 

Testing the compiler 

The compiler is now ready to be 
tested. Enter Program 4, the test 
program, and save it. Load and run 
GTX and compile the program. If 
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any errors are detected, correct your 
test program and try again. Run the 
compiled program using option *R* 
and you should see GTX COMPIL- 
ER filling the screen. 

If you run the program in Basic 
first, you will notice the speed in- 
crease, typically 45 times, Pressing 
'R* will re-start and will exit back 
to Basic, 

Memory requirements 

The compiler uses the following 
locations which should not be al- 
tered by the compiled program. If 
they are, crashes will inevitably 
occur. 

SCO0O-SC2FF (49152-49919) 

These locations contain the compil- 
ers run-time library. This must al- 
ways be present whenever the com- 
piler itself or a compiled program is 
used. In both cases, it will be loaded 
automatically by the program. If it 
can't be found, the program will 
crash 

$CF00-$CFFF (52992-53247) The 
compiled program's variables are 
stored here. This location can be 
changed, if required, by altering the 
value of VA in line 11 of the 
compiler. 

A compiled program also uses a 
few page zero locations which, 
again, must not be altered by the 
compiled program: 

$02 (2) 
$14-$15 (20-21) 
$39-$3C (57-60) 
$3F~$42 (63-66) 
$FB-$FE (251-254) 



Program Description 



Line numbers 

30-890 



1000-2510 
3000^3070 
3200-3930 
4000-4600 
5000-5030 
5100-5160 
5200 5260 



Prints current line number and 
length. Deciphers next command and 
jumps to corresponding part of the 
program. 

Evaluates expression, 

GOTO and GOSUB 

IF/THEN 

PRINT 

POKE 

FOR 

NEXT 



5300-5310 
5400-5420 
5500-5570 
5600-5670 
5700-5770 
8000-8030 



9000-9070 
9100-9120 

9500-9505 
9510-9570 



9580-9650 
9700-9720 



9800-9830 
10000-10190 
10200-10220 

20000-20550 

25000-26050 
30000-32000 



REM 

DIM 

SYS 

DATA 

READ 

Prints 'insert tape', or disk, 
depending on current device and then 
waits for a key to be pressed. 
Opening title page. Inputs source 
name, object name and sign space. 
Loads program specified by the 
source name from the current device 
to $0801 (2049 decimal). 
Relocates program to run at $0820 
(2080 decimal). 

Prints original length and compiled 
length along with the total number of 
warnings. The options are also 
printed. 

Inputs selected option. 
Checks if run-time library is present, 
if not it is loaded off the current 
device to $C000 (491 52 decimal). 
Saves the compiled program to 
current device. 

Inserts the correct addresses for all 

GOTOs and GOSUBs. 

Copies all DATA from its temporary 

store, starting at $C700 (50944 

decimal), to its correct place in the 

compiled program. 

Copies the machine code out of the 

run-time library to its correct place in 

the compiled program. 

Simplifies the machine code, if 

possible. 

Error messages. 



Variables 

PR Pointer to the next byte of the Basic program. 
L%( ) Line numbers of the Basic program. 
A%( ) Start address of the machine code for each 
Basic line. 

J%( ) Address of each jump, such as GOTO and 

GOSUB. 
T%( ) Address of each THEN, 
N% Number of Basic lines encountered so far. 
CM% Current Basic token being processed. 
VA Start address of compiled program's variables. 
JP Number of GOTOs and GOSUBs so far. 
TH Number of THENs encountered so far. 
DD Start of temporary store for DATA ($C700, 

50944 decimal). 
EN End address of program being compiled. 
DA Start address of machine code. 
AD Address to store next byte of machine code, 
AJ Adjust value to relocate program to $0820 

(2080 decimal). 
DV Current I/O device (l=tape and 8=disk). 
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PROGRAM r BIX COMPILER - LC0EER 



ER | 



SE IS FRINT IJ :CLR,D0I#J3JP[]KE44 B 1 
00 r PDKE43 , 1 r FOKE25G00 s 0 : NEW 13 

37 20 FR I WT ,fc C 1 LOAD " CHR £ ( 34 

3 *OTX CQnFILER"CKR£t34 2 ? \ "PE 

G0 30 PRlMT":DOUN93RUMCH0nED ?l 
CF 40 FORA-0TDB: PDKE631+A P 13:NE 

XT i POKE IBB, 10 
BE 50 END 



PRQSRAN: GTX COMPILER - HA IN 



IB 
A3 

IF 

Fl 
F0 



F5 

BA 

CA 
43 
SB 

65 



IS 
FE 



1 

10 
3 . 
11 
DD 

15 
E0 

5 

IS 
E5 

30 

+e 

31 
33 
35 
A 

40 
AU 
50 
B0 



GDTQS700 

FR-2349: □ ZflL* C 300 i , A*C 300 
J£t 300 ) a T* C 300 3 1 N?£ C E5 5 

N*— 1 ;UA-52992: JF-0:TH-0: 
-E0944 : WAS- " C li'DilE , D3UNE 3 " 
FHINT a TCLR l 5P > Sl=l l SS&3 1" 
EN-FEEK< 173)*2S6+PEEKd 17S 
AO-EN+4: :FGQ<2110THENAB-E1 

DA-AG : AJ-AQ-EI07 ; G0SUB2O5 
: EBBUBE0500 

LN-FEEKCPR+3 3*SS6+PEEKCPR 
'J l PR-PR +4 
IFPH*-ENTHEN1000B 
I F A 0> E5 5 00THEN305 1 0 
PR I NT "CHOnE , DOWNS "LN ; AD-D 



N%-N%+1 :L*CN*)-LN; A*CN*)- 

CM^-PEEKCPR) 
I F Crife- 153THEN4 000 
A3 70 1 Fcn^ > 64 ANDCM* 0 1 TH E JM 2 0 0 0 



EB B0 IFCna«137DRCri3t:-141THEN300 

0 

D5 90 IFCP15t-lBBORCn=it-'l450RCn3fe-l 
44THENGO5UB20E70 j Z*-0 ^ 001030 

0 

0F 100 IFCMfc-13BTHEN3200 
AF 1,10 IFCE1^-151THEN5000 
S3 1E0 iFCPlSt-lEBTHENBiaa 
B4 130 IFCm-130THEN5E00 
E4 140 lFCn^-lBBIHENGDBUBE0500: 

Z**0i GGTD300 
07 150 IFO1W43TKEN5300 
74 160 I FCM <s - 134THEN54BB 
73 170 IFCn?f-lS8THENSS00 
51 1S0 rFCt1^-131THEN5B00 
F3 130 IFCIi=i-140THENGOSUB£0540r 

23£-0;SGTD900 
50 200 IFCPt5t-135THEN57O0 
4E E10 IFCri*-13ETKENFR-PR + l : GOT 

A3 890 GDTD30E0B 
25 300 FR-FR+Z*+1 
B4 310 tFPEEKCPR>-5eTKEMPR*PR+l 
s GOTO50 

67 920 IFPEEKCPR)-0THENP«-PR+1: 

GGTD30 
C5 930 GDTG30150 
14 1,000 Z*-0:ldA1!£-9 
£C 1013 Z93s=FEEKCPR-*ZSs;> ; IF29V-0 

□R29*=5B0RZ9*-440RZS*»1G4THE 

N1020 

44 1011 IFZ9ft^59DR29ft=340R2B5£=-l 
790 R 2 9 ?s = 1 73QRZ95* = 1 770RZ354=* 1 6 
7TKEM0E0 



□ B 1013 24-Z5s+l:GOTOl010 

4B 1 020 2*-Z^ - 1 : A^-0 : B^-O ; C\ -0 : 

FDRA-0TQZ^: 
35 1G30 IFPEEKCPR+A3=134AN0A^-1 

THEN30000 
4C 1040 IFPEEKCPR+A)=194ANDFEEK 

( PR+A+ 1) <> 40THEN300 10 
99 1050 IFPEEKCPR+A3-1S4THEMA%- 

IcCfe-lc GOTO 1100 
3C 10E0 IFFEEKCPR+A3-40ANQB%-1T 

HEN30G20 

41 1070 IFPEEKCPH+A)-40THENB*-1 

;BOTO1100 
BB 1390 IFPEEK£PR+A)=4lANDB*-0T 

HEN30030 

70 1090 IFPEEKCFR+A3-41TKENB*-0 

D2 1100 NEXT 

7C 1110 IFC5E = 1THEN1150 

FE 1180 X5* M 0 : Y3fi = 2"i : D4"2 = 0 [ GGSUBE 

100 

34 1130 GOSUBE01EB 
FS 1140 RETURN 

DE 11.50 D6V=0 : FQRE=0TD2V: IFFEEK 

< FR+G > -194THENG6*-06*+l 
IB 11S0 NEXT!X*-2:Y*-X* 
73 1170 IFFEEK(PR+YV)<>41THEN¥£ 

-Y%+i: GOTO 1170 
EG 11B0 V5t-Y5t-1 rD : GOSUBE 100 

:GDSUBe0130 
G4 1190 GDBUBE0150: X^-Y^+E: IFDG 

^-1THEN18E0 
B4 1?00 GDSUBE01E0: 04^=1 : P\k=PKE 

3 : GDSUB2S30; Q2?S-Q1^ 
IS 1210 IFPEEKCPR+X?is+1}<>194THE 

N30000 

CB 1E30 IFPEEKCPR+VftD<>4lTHENiY^ 

-Y^+liGOtOlE30 
EC 1240 YS-YSfi-l :Pl!l;-0rt3DSUB2100 

:GDSUBe0130 
22 1E50 GOSUB20140- D1^=GE^: GG5U 

BE500:X^-Y^+e 
47 ieB0 □4Ss»2:OiV t 8a"ySfr-Z%slF36lfi> 

»Y5iTHENl£80 
0D 1270 GDBUBE100:D15£ = 0 
11 1£80 GOBUB201 20: RETURN 
AS 2000 PR-FR+1 

C7 E001 IFPEEKCPR)-40ANDCn%<>80 

THEN30150 
91 2002 IFPEEKCPR3=40THENOD-PR+ 

1 3 GOTO£050 
RE £009 00-0: IFPEEKCPRD017BTHE 

N30040 

B7 2010 PR-PR + 1 : IFFEEKCPR-H13-40 
ANDPEEK C PR X > 30T HE IMS 015 

B2 E011 IFFEEKCPR+l D-40THENGOSU 
BEBB0:DD-t;BDTO2013 

B7 201S Dl?£-0:Ga5UB1000 

EB E013 □-UA + E*CCM^-B53 : iHS-D/ES 

IF 20E0 GO5U3E01B0 

31 E030 IFDD-1THENE05B 

CF E040 GOTD300 

CE E050 IFPEEKCPR)«17BTHENPH-P 

R+l : GGTGE050 
DG 20E1 PR-FR+1 

15 g0S£ IFPEEKCPH-H)-40ANDPEEKC 

FR3-B0THEW301B0 
00 5053 Ol5s-03GD5UB1000 
BS 2054 GDBUBE0310 
E4 E055 PR-OO-2 : GOSUB2090 



Bl E05B IFFEEKCFRD-ODRFEEKtPK)- 

BBTMEN910 
C0 2057 PR-PR+1;GOTOS05B 
AS 2080 X^-0:Y^-0 

3B E0B1 IFPEEKCPR + Y^O^ITKENY* 

-W.+ L : GDTD20B 1 
14 20B2 Y5s-Y5t-1; RETURN 
EB 2090 PR-PR-^2; OU-0 ? BDSUBBBBB 

:GGSUBE100 
4F E091 IFDQ-0THEN6O5UBE0LE0: GD 

SUBS0310 ; BOSUBE04B0 s RETURN 
EA 2092 GOSUB204B0; RETURN 
BD £100 AB-"": □S-0:FQRA-X3tTO¥%+ 

1[ A^-FEEK(FR-KA) 
E3 E101 IFO4*-2THENO4*-0:GQTaaa 

30 

CF 2110 lFfl^>47ANDA5S<5BANDQ^-lT 
HEN30050 

04 SHI IFA%>47ANDA5S<SQTM£N(=iS-Pl 

S+CHRSCA%): GDTQE300 
B4 2120 I FAS- ** M THEN2 1 G0 
BC El 30 □-UALCAS^H^-Q/ESB' Lfc-D 

-H^*E56 : AE- ?,?I 
CF E131 IFDlfcOOTHENeiSl 
3B E140 GDSUB20000 
EF 2150 O^-1:GOTD2230 
90 2151 GOSUBE0040 
B 7 E15E □5&-l:GOSUBe500sGOrOE23-0 

AF £160 IFA^>B4ANCA^<91ANDQ^-1T 
HEN30050 

01 £170 IFflX>G4flNDA!t<BlTHENaiSfl 
07 2190 GOTOEEE0 

4A 2190 □=UA+E*Cft5£-655;H3£-0/e5S 

;L^-0-H^*25G 
FA 21S1 IFDli<>0THEN2Bll 
DD 2200 GD5UBE00E0 
CI 2210 0*=1 : GQTO2300 
BE EE 11 □□SUBE00B0 
09 PPIP U'i-1 ; 3G5UBE500 : GDTDE300 

AC EEE0 IFD*-0TH£N3B050 
IE EE30 IFA^-170THENDl^-3: G^-0- 
GOTO2300 

B4 EE40 IFA5s-172THENOi*-S!Cl*-0: 
EQTO2300 

F0 EE50 IFA^-171THEN01^-4; 0^-0: 
GOTO2300 

G7 2ES1 IFA3;-173THENOl*-G:O*-0: 
GOTOE300 

S9 2E5E IFA3i-175THENQl^-l iD^-d; 
GOTOS300 

B9 22S0 IFA3fi-17BTHENai3t-E ; O!t-0; 
BQTQ2300 

CB £261 IFA*-0ORA*-5BORA36-44ORfl 

!t 5 =41DRAH=59ORA5lE=34THENS300 
AC ££62 IFA5s-17B0RA?s=179aHA%-17 

70RA^- 1 B7ORA^=164THEN2300 
£4 2270 GOTO300G0 
37 E300 I F 04^- 1 TH ENG4^ *0 ■ RETURN 
49 2310 NEXT: RETURN 
C3 E500 DNO15SEG5UB20460, E0470, E 

0080 3 £0100 , 20090 k 201 1 0 
AC 2510 IFUA5s<INTC<015c+l>/e>THE 

NWN=UN+1 s WA£=UAE+ s, CDQWhn "iFR 

INTUAS "I SL1 I NE"LN "WARN I NG W 
E4 2520 WA*-INTC(01V«-1)/2):RETU 

RH 

BB 3000 PR-PR+1: AS- 1 ' U ;FORZ^0TOG 

tA*-PEEKCFR+ZJ 
5F 3010 IFA^-5BDRA3i-0THEN3040 
EC 3050 IFA*>47ANDfl%<5BTHENAE-ft 
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S+CHRS* :NEXT 
1C 3030 GDI 

EB 3040 0-UALCi=lS5jH5s-a/SBB:L5£-D 

-H^*25B:Z^-Z-1 
00 3050 IFCM&-141THEN3070 
Fl 30E0 GO5UB20230:GOTOa00 
BS 3070 GOSIJB20250: GGTG300 
10 3200 FR-PR+1 : IFFEEKC PRU-167T 

HEN30090 
EG 3201 OlSs-0 

C2 3210 GG5UBl&00:PR™PR+25£+l: A* 

•PEEK < PR) ; AU-FEEKCFR+U 
F2 32E0 CP5S-0; IFA5t=167THEN3700 
30 3230 PH=FK+E:lF<flfc*179ANDAl* 

- 177 ) 0R< A*-177flN0m*-17S 3 THE 

NCF2-1 : GBTD3300 
BD 3bf40 IFCS?«-177ftN0fllt-17BlDRC 

ft?S-17eftNDl=IIS-177JTHENCPfe-S:G 

0X03300 

4A 3250 IF(A^179^iN0Pil^-178)QRC 
17GANDA1 1 73 D : 13 

OT03300 

AF 3E5B IFCftlfc<64ORA13;>90)A!MIKA 
13s<H:7DRfll5£>5B3ANDA15S<>l94THE 
SHJ301E0 

F4 3260 PR-PR-l:IFflk-l77THENCF* 

-4:EDTD33O0 
EB 3270 IFFI^-17BTHENCP5S-S:C5DTD3 

300 

TPS 3290 1FA3-173THENCF^-5]GDT03 
300 

22 3250 GGIG30110 

13 3300 GOSUB20310 

BC 3310 O13s-0 : GQSUB1000 : I FPEEK C 

PR + 2*+l ?< > 157TKEN30120 
FB 3320 DNCF*GG5UB20330 a 20410 a 2 

0450 p 20440, 20320, 20420 
Bl 3330 SGTG3B00 
C4 3700 GOSUB20300 
Fl 3710 Z* — 1;BDTD3B00 
CF 3900 T*CTHy-AD+li TH-TH+1 
13 3B10 GGBUB202B0 
80 3B40 BDTG3300 
FG 3300 PR-PR+Z*+1 ; I FPEEK C FE 1 < > 

1E7IKEN30120 
34 3910 IFPEEKCPR+1)>47GNDPE£KC 

FR + 1 SBTHENCM^- 137 : BDTQ3000 









as 


£A 


3320 


PR-FR+1 


7B 


25 


3330 


GDTD50 




as 


4000 




1C 


4B 


4010 


21E-Z13+1 




14 


4020 


A£-PEEKCFK+Z1^3 


CM 


40 


4030 


IFA^-34THEN40B0 




EB 


4050 


IFA2>54ANG[=^<3lTHEN4200 


BE 


7F 


4051 


I FA£> 47ANDflSfi< 5BTHEN4£00 


EF 


A3 


4052 


IFR5S-194THEN4200 


33 




40B0 


GG5UB4500: IFA-1THEN4400 










33 


En 


4061 


GGTD401O 




01 


4080 




0A 


cc 


4090 


A3s-FEEKCFR+Zl*>: IFA*-0T 






HEN4110 


33 


9E 


4100 


IFA3i0 34THENZli-ZX3s+l : G 


45 




□TO4030 




4E 


4110 


ED5UB201G0 


03 


5C 


4120 


IFZU-Y1*-0THEN4161 


75 


BE 


4160 


FOR A-0TGZ I*-Y1 X-l : POKE A 






D, PEEKCPR^VI^ + R^rRD'-FlD+lrNEX 


05 




T 




6E 



B4 

E0 

72 
EB 
F4 

C2 
E7 

SC 

A4 
AE 
□ 0 
55 

EB 
3C 

CD 
53 
43 
0E 
6F 
23 



2E 
87 
3E 

3F 

113 
33 

74 

E2 
54 



4 1 B 1 I F A3i-0THENG0SUB4500 : GOT 
04400 

4170 Zik-Zlk+l i flE-FEEKCFR+Zl 

*);GOSUB4S00: LFA-1THEN4400 

4130 BETB4010 

4230 Rl-PR^R-PR+Zl* 

4203 D4^-0i Gl%-0- 02^^0:0^-0: 

□□BUB 1000 

4210 GQ5UE20210 

4220 FR-R1 ;Zl^"2l^+Z^: A£-FEE 

4230 GDSIJB4500 : I Fft*iT HE N4400 

4231 IFfl3s-34THENZ13S-Zlfc-l 
4240 GDTQ4010 

4400 Z*-2l*-l j G0TG9M 

4500 A-0: IFAV-S9GRfl3s-34THENR 

ETURN 

4510 IFA3S-44THEM4SS0 

4520 rFA£yE4ANEA^31THE^RETU 

m 

4530 IFA^-1B4THENHETURN 

4531 IFA*-0ORA%-SBTHENtS?e 
4540 RETURN 

4550 GD5UB20200 
4560 RETURN 

4570 A-l r IFPEEKCFR+Zl*-l)-59 
ORPEEK C PR+Zl*-1 1 -44THENRETUR 
N 

45G0 GGSUB20520 
4G00 RETURN 

5000 FR-FR+1 ; 01?5-a ; EQSUBX000 
i GO SUB 20310 

3010 FR-PR+^+2: G15s=0;GDSUBl 

000 

5020 GQSUB20340 
503O GGTQ900 

5X00 PR-PR+1 lCU2-FEEKCPR3 : JF 
CY*< G50RCU*> B0THEN3O130 
5110 FR-FR+1l IFFEEKCFRD017B 
THEN30130 

5120 PR-PR+1 iD15£-fl: GO5UBX000 
: PH-PR+Z3L+5 : I FPEEK C PR-1 J <> IB 
4THEN30130 

5130 □-UA+g*(CU5s-B5):H=t-0/S5 
B ; L*-Q-H3s*25G ■ GO3UB201E0 ■ CJ1- 
Q+52 

51H0 01^-0 :G05UB1 000 

5150 Ht-Ctt/SBS : L«HE31-4R*E5B ! 

GQSUB201B0 

51B0 N5tCCU^-B53-AD-AJ;NXVCNX 
3 -CU* ; i GOTO900 

5200 PR-PR+1: Ai-PEEKC PHI : I FA 
5S-32TKEN5200 

520 1 I f Afe-OOR A5s-59THENZ5s— 1 s 
NX-NX-1 : A^-NX^CN5C5 • GO TO 5 2 20 
5510 2*-0; IF^<GSDR^>30THEN 
30140 

52U NX-NX-1 : IFA*ONX*CNX3TH 
EN30230 

5S50 fliS-AS-eS : AS£ : H?£-Q 

/2SGrL^-Q-H^*25B 

5230 Q-Q+2*S6:H13t-Q/256:L15i- 

Q-K1^*25B 

5240 GO5UB20350 

5250 PR-PR^+1; IFPEEKC PR 

4THEM5200 

5260 GOTQS10 

5300 IFPEEKCPRDO0THENPH-PH + 
1 i GGTG5300 
5310 GOTD310 

5400 PR-PR+ 1 : I FPEEK C PR D <> 30T 



HE^301G0 

3F 5410 IFPEEKC PR )<>0FlNQPEEKC PR 

) < > 53THENPR-FR+1 1 GGTG5410 
G0 54S0 GOTO910 

27 5500 PR-PR+1-D1*-0:GOSUB1000 

7£ S530 BG3UB20510 

D7 5570 Q0T09OT 

35 5G00 " : PR-PR+1 

BE 5G1S A^-PEEKCPR); IF4*<4BDRft* 

>57TMEN5B30 
7X 5620 AE-AE+-CNR3 1 A^5 • PR-PR+1: 

BDTG5B10 

F 4 5S30 y AL ( AS > : I FQ> 255THEW 3 0 
170 

EF 5G40 FOKEDD.Q: ED-ED +1 

57 5550 IFA*-44TMEN5600 

G3 3BB0 IFA5t-5BDRA5i=OTHEN91B 

61 5G70 GOTO301B0 

DC 5700 FR-FR+1: A^-PEEKCPR) 

13 5710 LFA^<B5DRA^>30THEN30130 

52 5720 Q-UA+^*{G3i-65) j H^-E/25E 

;L^S-Q-H^*25G 
AE 5730 GD5UE20520 
D4 5740 PR-PR* 1 : A3L-PEEKC PR > 
7 A 5750 lFA3ft-44THENS7affl 
FF 5750 IFA*-0ORA2-5BTHENS!0 
E4 5770 GGTD30130 
FD B000 PR I NT * C DOUW , 5PC53 " ; ; I FD 

U-1THENPRINT"FG5ITIDN TAPE hJ \ 

: 3CSTOB020 
8F S010 PRINT" INSERT DISK" 3 
3B B020 PRINT" AND P'HESS A KEYC 

DOUJN] ?h rFOKE198,0;UAIT19e,liP 

□KE158.0: RETURN 
4G 3000 PGKE532B0 1 14 ] PGKE532B 1 , 

G: PQKE1BB , 0 
7C 3005 PRlNTCHR$<l4r j CCLfi,WH!T 

E 1 EQUWU EBG.ST.SX: E5C a SQ 3 S 

n.SP.Sl .SL.SE.SR^PCICDCCSCI 

> CSR3 L5D3 EBBHELL" 
1C 3010 PR I NT 3¥ ECY12H 11 
D4 B020 INPUT"COOUN2 1 RIGHT2 N SS3 

OURCE NAP1E ? ^N3S 
OB 3021 J FLEN£ NSS } -0ANEDf < > | THE 

NPRINT H [:UP33 w i :GOTO90S0 
68 9030 INPUT"CRIGHT2 a SOD EJECT 

NAliE 11 ; NQS 
0F 9031 1FLEN(N0S)-OflNDDU<>lTHE 

NFR INT H EUP3 " ; ; BDTDB030 
05 3040 I FD^< > 1 ANDNS$«"NO$THENPR 

rNT*EUP s RIBHT14.SPCE0.UP: 11 :G 

DTG3030 

32 9050 INPUT"CDDU)N a RIGHT2 a SSDI 

BN-SP^CE? YCLEFT3] n j AS 
GE 9070 SP5S-0: IFft»-"Y"THENSP5fi-l 

7B B100 GOSUB60001 P0KE1S5 , 0 r T-4 
03G0-LEN C N5S i l H5S-T/55B : L^-T» 
H^-25B 

BD 3110 F0KE7GE, H*4: PGKE7B1 a L^; P 

D K E 7 B 0 p L EN C NS$ J : S YS654G9 
XA 3120 P0KE7B1 , 1 : PGKE7B2 , B ; PDK 

E7B0 r 0 i SVS55433; GOTG10 
EB 3500 H^-DA/25SjL^-DA-H^*25B: 

P0KE251 t LV: PQKE252 p 
42 3505 H5s-AD/eSS:L5ti-fllD-HS»E5B: 

P0KE233 t L'i E FGKE254 a H^; SYS497 

4B 

4B 9510 POKES32G0 S 14 : PGKE53EB1 p 
G 

3C 3511 PR I NT" C CLR s WHI TE a EGUJN , R 
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► 



Dl 



BE 



BA 



EB 



48 



30 



05 



B4 



E5 



9A 
46 

57 
EG 

CE 

C5 
El 
SE 



10 



EB 



19 



70 



43 



55 

FD 

34 

DD 
43 
EB 

DF 

HE 
3A 
135 



I GHT3 , C@iS3 JJ : PR I NT " C R IGHT3 , R 

PC a 5C a 50 , Gfl , SP a 9 1 jSL.SE.SD.R 
MSOFF3 " 

9912 FRINT"CODUIN a H IGHT3 , SB , 5 
A a 55 a 5I a SC:3 LENGTH :'TN-EB43; 
TAB C 25 'J *C E043" s -EN M C LEFT 3 3 11 
3513 PRINT" CRIGHT3 , SCUDPIFILE 
E LENGTH: " AD-DA+9B i TAB t £G } M C 
£049 ■ i - C £1 07+ AO-OA} * t LEFT] ] J7 
9514 FRIMT ,P CDDWN J HIGHT3 1 5W:A 
RNING5: "UN 

9520 PRI NT u QD0WN2 , R iml3 > BB2 

ELECT ONE OF THE FOLLOWING;- 
pp 

□ 53Gi PR INT "CDDWN, BIGHTS, RUSO 
N , 55 ? RU5DFF3 5AUE COMFILED 
PRUGRACT " 

9540 PR INT "C DDWM a RI BHTB p RU50 
N , 5R p RU5DFF3 RUN COMPILED P 
ROGRAM AND EXIT*' 
3550 PR I NT "[DOWN j RIGHTB, RUSO 
N P 5D S RUS0FFJ OUTPUT RUM-TItt 
E LIBRARY" 

3560 PRINT"CD0UIN > RIGMT6,fiUSQ 
N a 5C, rusoff: COMPILE ANQTHE 
R PRDGRAn" 

5570 FRINrTD0UN p RIGHT6,RUSO 
N,9E,RU5DFF: RETURN TO 5A5I 

35B0 PDKE15B a 0 

3G00 GETA$: I FA$- m R "THENSYSSB 
90 : END 

9B1B I FA$- ''C" THEN RUN 

35E0 IFA$- H 5"TKENGD5UB3B00:G 

□TD5510 

9B30 I Ffl«- r, 0 "THENGO5UBB000 i S 
YS49B54:GOTDB510 
9G40 I FAS- w E ra THENEND 
3B50 GDTD9G00 

37 00 FDKE 1 020 a BE : POKE 1321 p 54 
=POKE10BB P 76:DU-PEEKC186): IF 
PEEK C 491523 -1B3THEN9000 
3710 FDS££lB5 h 0: F0KE7B5.33 FDK 
E75 1 „ 5B2 ; PQKE7B0I p 3 : SYSB54B9 
9720 P0p<E7Bl k 0 : POp<E7B£ p l92:P 
OKE790, 0; SY9G9493- GDTDB000 
3300 GD5UBB000 i T-409G0-LENCN 
S S 3 - L E N i N0$ ) : Hi- T / 25B : L*-T -H 
**E55 

9810 P0KE7B2 a Hfc : P0KE7Bl a L*;P 
□KE7Q0 , LFNCNOi? ; 5Y565469 
98 2 0 F0KE254 a B : FDK E 253 a 1 s FOK 
E790 , 553 : A-AD-A J ; K*-A/£5B ; 
-A-H^*255 

9830 P0KE7S2,H% = P0KE7Bl,L;s:5 
Y5G5435: RETURN 

10000 PRINT 'THOME, ODWN , 5F a 5A 
BC SPC73 M 

fik C N$S+i )-AD-AJ : ED5UBE0 



IFJP-0THEN10100 

FORA-0TDJF-1 

Ai-PEEKCJ5tCA))+S5G*PEE 



, BBS] 
10001 

B70 

10010 
10020 
10030 

KCJ^CAD+i:) 

10040 FDRE-0TONS:: IFLSsCBJOASi 
THENNEXT 3 LN-A* - GOTO300S0 
10050 H^-A^CB3/B55:L5£-A^CB3- 

10070 FGKEJ^CA) ,L£: PDKEJ^CAD 

10050 FDRB-0TO0-NEXT 



13 10090 NEXT 

29 10100 IFTH-0THEN10E00 

SL 10L50 FDHA-0TOTH-1 

55 10130 Ai-PEEKCT3tCft3 3+B5G*PEE 

KCTUA5+1) 
BE 10140 FGRB-0TON£: IFL^tBX>A5; 

THENNEXT ;LN-A*; GDTD30050 
55 10150 B=B+l:Hi=A5ftCB3/BSG:L5s- 

FE 10170 POKET^CAi , Li: PDKETHCftS 

R2 10180 FORB-0TD0 : NEXT 

77 10190 NEXT 

BB 10200 lFDD-50g44TKENB500 

B3 10510 FaF?ft-i3TQOD-S0945: POKEA 

D + r^ , PEEKC50544-^A:' ; NEXT r B-AO- 

AJ 

64 10EE0 H^-B/ESG:L^-B-M^*S5B:P 

DKEDA+3 a : PDKEDA+ L fl tA; AD- AO 

■HA j GOTO9500 
BB £0000 FORU-0TO7;POKEAD+U P PEE 

KC4315E^U);NEXT 
53 20010 PDKEAD+1 p Lk; P0KEflD+5 p H 

X ] AD-AD+U ■ C L-l : EOTD25000 
7F E00£0 FORU-0TQ9;PDXEnD+U p FEE 

KC491B0+U) jNEXT 
37 20030 POKERD+lpL^rPDKEAD+epH 

% : FOKEAD+6 , L^+l : POKE AD +7 s i 

AD-AD+U:CT-B;GDTDE5000 
£C 20040 F0RU-8TQ7:POKEAD*U f Ptl 

KC49170+UD ; NEXT 
E5 E0050 POKEAD+l.LSfi^OKEAD^SpH 

s AD-AD+IJ ; C I -3 : GOTO25000 
7E 200G0 FDRU-0TD9lPDKEAC+U s FEE 

KC45176+U>]NEXT 

15 E0070 F0KEAD+1 P L*:PDKEAD+B P H 
: POKEAO+G , L^+l 3 POKEAD-^7 s Mk : 

AD-f^D+U : CI-4 : GDTDE5000 
C3 20060 FORU-0TOS: POKE AO-^U, PEE 

XC451S5 + U3 tNEXT: AC-An*U;CI=5 

s RETURN 

52 E0050 FDHU=0TDS:POKEAD+U P PEE 
KC 49191+y > : NEXT : AD-AD+U : C I -G 
i RETURN 

BE 20100 F0KU-3TOE ; FOKEAD+U , PEE 
KC43134+y3 : NEXT = AD-RD+U : C I -7 
j RETURN 

BE E0 1 1 0 F0RU-STQ3 = POKE AQ+U , PEE 
KC4B197+U3 rNEXT; AD-GO+U : CI-B 
: RETURN 

B7 80180 FQR^0TO7 : POK£AD+y s PEE 

KC45E00-^U^ : NEXT : AO-AD+U: C 1-3 

3 GOTO85000 
OB 20130 FDRU-0TD7: FDKEAD+U, PEE 

K( 4920B+U ) : NEXT : AD- AO+U : C I -1 

0; RETURN 

B5 E0140 FOHLr-QTP7:F0KEAD+U p FEE 

KC49S16+U ) i NEXT : AD-AO+U : C I -1 

1:GDTDE5000 
B7 £01 50 FDRU-0TO7: POKEAD+U, PEE 

Kt43E24+U^ : NEXT : AD-AD+U : Cl-1 

2^GOTO2Sai30 
CF S01G0 FORU-0TD9 : PDKEAD+U a FEE 

Kt 49B32-KU > = NEXT : C I -13 
81 20170 PDKEAD+3^L^: PDKEAD+4 a H 

k : POKE AD , L*+l : POKEAD+9 P H^: s 

AD=AD+U i GDTDE5000 
A3 20190 FDEU-0TD6 s FDKE AD+U , PEE 

KC49E4E+U5 r NEXT 
44 E0190 P0KEAD+1 P Z1^V1^:AD*A0 

+U : C 1 -14 : RETURN 
EE E0EGC FCRU-0TOS;POKEAD+Y S FEE 



KC49E49-HM3: NEXT s AD- AO+U ; C I -1 
5 : RETURN 
57 E0E10 3FSPH-1THENGOSUB20430 

OA eaen foru-qtde : fdkead+u a pee 

K C 4 5 E 5E+ U 7 : NEXT : AD -AD +U 3 IF5 F 

3J-1 THENSO5UB20430 
D7 E0E1E Cl- 16: RETURN 
DD E0220 FORU-0TD4 ; FDKEAD+U S PEE 

K C : NEXT : AD— PD+U : C t — 1 

7i RETURN 

04 505 30 FDRU-OTO^jPOKEAD-^U.FEE 
KC49ee4+U3 ;NEXT: J^C JP5-AD+1 

A0 20240 POKEAO+1 , L3f : PDKEAn+2 a H 
k : AD-AD + U : JP-JP+1 1 CI -IB: RETU 
RN 

4F E0853 FDHU=0IDE : PDKEAD+y a PEE 
K C 492G7+U > 3 NEXT ; J* C JP ) -AD+ L 

CS 202S0 PDKE AD+ 1 s L£ : FOKEAD+2 s H 
5t: AD*AD+0; JP-JP*1 :CI-X9:RETU 
RN 

3D £0870 POKE AD „ FEEKC 43^70 5 ■ AD = 

AD+l:CI-S0i RETURN 
3£ £0200 FDRU-0TDE : PDKEAD+U , FEE 

KC49271+V) : NEXT 
E3 20290 PDKEAO+2 s LN/2GG: POKEAD 

+ 1 a LN'PEEK( AD+E > *E55 ■ AD = AD+M 

:CI-21 i RETURN 
E 5 E03S0 FDRU -0TO7 : POKEAC + U r FEE 

KC49274+UD ; NEXT = AD-AD+U: CI -2 

E : RETURN 

A0 £0310 FORU-0TD7-FOKEAD+U, PEE 

Ki 43EBE+U ) : NEXT 1 AD-AD + U ■ C I"2 

3; GOTO25000 
IB E03ES FQRU-0TO11 : PdKEAD+UpPE 

EKC49E90+^: :N£XT: AD-AO+UiCI- 

84 3 RETURN 
16 E0330 FDRU-0TOll:P9KEAD+U h PE 

EKC 49303 -KU ) t NEXT ? AD-AD+U : CI" 

29 s RETURN 
7B E0340 FDRU-0TD5:POKEAD+U,F£E 

K<49314+^>: NEXT r AQ-AD+U: CI-E 

5 ^RETURN 

F3 20390 FDRU-0T929:POKEAD+U P PE 
EK( 493E0+U ^ NEXT 3 C I -E7 

IF £0350 P0KEAD+1,L?S: POKEAD+e a H 
% : PGKEAD+9 , L^+ 1 = POKEAOn© , 

7 A £0370 POKEAO+4 1 Ll^tP0KEAD+5 p 
H15£ 3 P0KEAD+12 S Ll^fi+1 : POKEAD + 1 
3 P H1* 

BD E03B0 FOKEAO + 17 1 L^^P0i<EAD+lB 
; H* i POKE AD+20 . L^ : POKEAD+81 p K 

B3 E0330 FDKEAD+25 P L^+1:P0KEAD+ 

OB £0400 P0KEAD+ag p M5£CA!i3/25G;F 

DKEAD+EB a N3fiCAa>-PEEKCAD+59)* 

25B : AD-AD+U ■ RETURN 
70 £0410 FQRU-0TO15; POKEAD+U , PE 

mi 43330+U ) j NEXT : AD-AD+U : CI- 

£B s RETURN 
AE 2:045:0 FORU-0TO19lPOp<EAD+'J s PE 

EK C 493GG+V ) : NEXT ; AD-AD+U ■ C I - 

89 3 RETURN 
96 £0430 FORU-0TD4 : FDKEAD+U a FEE 

St C 4535E+U NEXT: AD-AD + U; EI-3 

0 3 RETURN 

08 80440 FDRU-0TO17;PDKEAD+U a FE 
EK C 453B7+U ) ; NEXT ; AD-AD+U : C I - 
31 : RETURN 

18 E0450 FDRU-0TO17;POK£AD+U,PE 
EKC43405+U5 ; NEXT : AD D AD + U : EL- 
SE ; RETURN 
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71 £04 60 FCRU-0TD2 : POKEAD+U , PEE 
KC43423+U) : NEXT : AD-AD+U; CI -3 
3: RETURN 

45 E0470 FURU-0TO^POKEADHJ,PEE 
NEXT: AD- AD+U : C I «3 

4; RETURN 

F4 E04B0 FDRU-OTDE: POKEAD+U ^ PEE 
KC49429+V) ; NEXT r AD-AO+U : C I = 3 
5; RETURN 

EF 23430 FDRU-0TDE : POKEAD+U 3 PEE 
KC49432+U);NEXT: AD-AC+U l CI -3 
5 i RETURN 

13 E050E FDRU-0TOE ; POK£aO + U T PEE 
KC43435+U)]NEXT: AD-AD+U r C 1 -3 
7 ; RETURN 

99 £0510 FDRU-CTOll^PQKEAO^J.PE 
EKC4343Q+U) : NEXT i AD-AD+U : C I - 
36 s RETURN 

as £05 E0 fdru-otog: poke ad-mj, fee 

KC494S0-I-U) s NEXT 
AE £0530 PDKEAD+I^jPOKEAD + SsH 

5; ; AD-AOU ; C I -39 ; RETURN 
13 E0540 FDRU-OTOEj POKE AO+U, PEE 

KC 49457-HU 3 : NEXT t AD- AD+U : C I -4 

0: RETURN 

3 E E 0 5 50 FORU-0TO 1 1 ■ F OK E A D + LP a FE 

EKC49460+UD =NEXT: AD-AD+U;CI- 

4 1 : RETURN 
EE 25000 IFLI-iANDCI -9THENAD-AD 

-Q : PDKEAD-5 s 20 s POKEAD-1 , 5 1 : L 

I ~4E; RETURN 
73 £5010 IFLI-SANDCI-9TKENAD-AD 

-G j PUKE AD-B a E0 : PDKEAD- 1 , El : L 

1-43; RETURN 
AA 2S0E0 I FL I -3ANDC I -T3THENE500 

0 

41 PS030 I FL I -9ANDC I -E3THENAD- A 
D-Bi POKEAD-S p G3 : PDKEAD-1 s 64: 



LI-45[RETURN 
B3 £5040 IFLI-UANDCI-44TKEN260 
E0 

SB E5050 I FL I - 1 1 ANDC I - 4 5T HEN AD m 
AD-e : POKEAD-5 , 53 : PDKEAD-1 v G4 
: LI -47 : RETURN 

00 E50E0 IFLI-1EANGCI-44TKENEE0 
40 

D3 £5070 I FL I - 1EANDC I -45THENAD- 

AD-B : PDKEAD-5. B3 : PQKEAD-1 . B4 

=LI-49: RETURN 
5E E5300 L I -CI : RETURN 
5F E6000 AD-AD-IB- FDRU-0TD3 : PCX 

EAD+L> , PEEKC AD+O+U 3 : NEXT 
OD EB010 FCKEAD+1 > E51 l PCKEAE+E ? 

£5£ i AD-AD+10 : L I -44 a RETURN 
7B 2G0E0 AD-AD-lB:F0RU-&T09:F0K 

EAD+U, PEEKCAD + B + LO j NEXT 
B3 £6030 POKEAOn^^OKEAD+e.S 

1 = AD- AD+ 10 : L J =45 : RETURN 
B7 £6040 AD-AD-18; FDRU-0TD3: PDK 

EAD+U s PEEK* AD+B+V > s NEXT 
41 BG050 POKEiAD-i S B53; POKEAD+G, 

254 s AD*AD+ 10 j L I -48 : RETURN 
EG 30000 PR1NT"CST3Q0 MANY tSP, 

SE£ p SK3S* s s GOTO3E000 
E7 30010 PRINT 71 LSP .. SEE h SK] WITH 

OUT BRACKETS * j : BOTO32000 
53 300E0 PR 3 NT "C5EH RACKETS TOO 

COMPLEX w ; :GOTO32000 
D3 30030 PRINT"C SB3RACKET NEST I 

NG ERROR 11 1 i GOTO3E000 
4F 30040 PR1NT p, CSL p SE,ST: WITH 

NO EQUAL"] : GOTO3E000 
74 30050 PHINT'TSEDXFECTINB QPE 

RATDR"; -GOTCJ32000 
96 30060 FRINT"CSnLLEGAL OPERA 

ND I? ; ]GDTD3E000 



El 
ED 

HB 
6A 
ED 
73 



3A 

as 

4C 
EA 
7A 
C4 
33 



30070 PR I NT " C 55, SO , ST, SOD /C 5 
GpSO.SS^SU, 3E1 UJITH ND NUIiBE 
R"; tGDTD3£000 

300^0 PR I NT " L SLD I NE NUMBER D 
UE5N 1 T EX I 5T " i ; GQTQ3£000 
30030 PRlNT ,, CSI,SFa-CST,5H J S 
£ , 5NH WITH NQ EXPRESS I ON w ; ; □ 
□TO3£000 

313100 PRINT": 51 ,SF] UJITH NO 
CST 3 SH , SE , SND B j : GDTD3B000 
30110 PRlNT ia :5C:oriPARr5DN EH 
ROR H ; ;COTD3£000 
301 E0 PRINT'TSI ^FD-EST.SH^S 
E.SN3 GARBAGE"; rGQTO3B000 
3B130 PRINT'^SF^Q^HD-CSN, S 
E^X^TD GARBAGE"; rGOTO3?000 

30140 PRINT'TS^SE^X^TJ WI 
THDUT tW.SOgiaH^s rGOTO3E000 

30150 PR I1MT 5AH RRAY GARBAGE 
tt ; : □□TC3E000 

301S0 PRINT K, CSO h Sl h Sh: GARBA 
SE W i ; GOTQ3E000 

30170 PRINT 'TSN>jnS£a lt!L: LA 
RGE hl ; ;GOTO3E000 
301B0 PRINT H :SD 1 SA l "ST N SAD 
RBAGE " ; iG3TD3200S 
30130 PRINT"C5R J SE J Sfi J SDD 
RBAGE M ^ ;GOTO3E000 
30200 PRINT"CSS3VNTAX ERROR" 

30E10 PRINT "t 5T1] EP1DRY FULL - 

FRDGRAn TOO LONG" ; END 
30£30 PRINT"CSF s S0 5 SR3-CStg k S 
£ a 5X a 5T3 NESTING ERROR" GOT 
032000 

3EOO0 PRINT" IN"LN: END 





* 3D A^xr A 
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Bus Route 64 



Connect two Commodore 64 computers through their 
serial ports or link in to the CI6 and Plus 4 



T 

X here are many ways of connect- 
ing one Commodore computer to 
another but most methods require 
custom-made cables and complex 
software. This routine simply uses 
the serial bus which already has a 
cheap and easily available connector 
in the form of the disk drive/printer 
cable. 

The serial bus has two lines 
which are capable of input and 
output on both computers: the 
CLocK and DATa lines. There is 
also the ATN (attention) line that is 
used to interrupt external devices, 
but unfortunately it cannot accept a 
data signal. There is a line designat- 
ed SRQ IN (serial request in) on the 
C64 but this has been deleted on the 
CI 6 and Plus/4 microcomputers. 

The SRQ IN line allows external 
devices to interrupt the C64 and can 
only be used as an input. The CLK 
and DAT lines are so called because 
of their use in the Commodore 
Kernal ROM during communica- 
tion with serial bus devices. It is the 
CLK line that governs which bits are 
valid on the DAT line and in a sense 
it * clocks' the bits going out. 

Recently a few dual-player 
games have appeared on the market 
where two Commodore computers 
are connected together and a game is 
loaded into both. This routine has 
possibilities in such environments, 
requiring very little modification to 
the actual code. 

Two copies must be made to get 
the routine up and running, one per 
computer, with a slight modification 
at the beginning of the routine 6 INT- 
VAR' in each version. Where it has 
LDA #XX, the XX must be 00 in 
one and 01 in the other. This is in 
order to condition TLKFLG (TaLK 



101 

AW 

ES 




; 5EfiIflL BUS CWIIILJtilCATIONS 




-PEG $0801 




30 


COLOUR 






40 




;UIDEO JNTEWFfiCE 


CHIP II REGISTERS 


Efl 






EXTCOL 






70 


BGCOL3 


-urc+jsi 




SO 


CIS 


iCOrtPLEX INTERFACE AlIAPTQR #E REGl&TtRS 


90 


-4DD0A 




1001 


C I s?FH A 


-CJS+SBfl 




lie 




-CIE*£02 








jKESNAL J?Drt ROUTINES 




CHRDU-T 






llg 


BET IN 


-SFFE4 




1SH 




; BASIC HEADER 




IBS 




- JHRD E0B 




17fl 




. WORD 1397 


; LINE NUMBER 


isa 




-6VTE SSE 


lSVS TQktN 


130 




■ BYTE 'E0G1 1 


2B& 


EGB 


.BYTE ISO 


;9fOWflL3 END Of BASIC LINE 


SIC 


. BYTE *00 , *0O 


; SIGNALS END OP BASIC TEXT 


££B 


5ERCDFI 


JSR IhJTUIO 


; INITIALISE UIDED 


£30 




JSR LINREL 


i RELEASE SEEJflL BUS LINES 


Etfl 




JSft INTWR 


1 INITIALISE UARIASLES 


ff50 


CHKFLS 


LDA TLKFLS 


SBO 




BN£ TALK 


; BRANCH TD 1 TALK Dfi r LISTEN 


570 




JHP LISTEN 


2B0 


TftUC 


JSfi SET IN 




E30 




CMP ttS00 








BED TALK 


iWfiTT FOR CHAR FRCM1 KEYBOARD 


3ie 




51* BYTE 








PHA 


;SflUE CHAR ON STACK 






LDX *$QD 


i LIGHT GREEN TEXT 






ST* COLOUR 








JSR CKROUT 


: print character to screen 


3m 




5EI 


eTMEN SEND Hid SERIAL BUS 


370 




JSR CLKLD 


^END ATTENTION 


389 


WDfiTLO 


JSR GEIB1T 


390 




ECS UJCATLD 


- h miT FDR Acknowledge 


400 




LDK #S0B 


^10 


NXTEIT 


JSR CLKLO 


irtAKE £IATA NOT UAL ID 


450 




ASt BYTE 


sGtT TO SEND JM .C 






BCS HI DAT 


440 




JSH DflTLD 


tSEND ZERO BIT 






JnF DATUAL 




4£e 


H I DAT 


JSR DflTHI 


;SEN£] ONE BIT 


470 




JSR GLKMl 


;I1AKE DATA UAL TD 


too 


UCTLKLG 


JSR 5ETBIT 


■in a 




Bill UELKLQ 




EBB 


UCLKHI 


JSR GETBIT 




513 




BPL JF.Z.K'."'. ' 


;WAIT FOB BIT ACKNQWLEflGE 


520 




□EX 


S30 




HNE NXTBIT 








J5J? DfiTMI 


; RELEASE DATA LINE 


S50 




eti 


■ ALLOW nASKABLE INTERRUPTS 


$&* 








570 




CUP #50D 


ilf ' RETURN * KEY THEN LISTEN 


5&H 




ENE CHKFLG 


530 




□EC TLfcfLE 





FLaG) so that one computer has the 
initial talk priority. This is toggled 
after every press of the return key. 
When converting the routine to 



work with other Commodore com- 
puters which have a serial bus, the 
following table of register/bit 
numbers may be useful 



COMPUTER 

CI 6, Plus/4 
VIC 20 
C64/128 



CLK-IN 

$0001/6 
S911F/0 
SDDOO/6 



CLK-OUT 

$0001/1 

S912C/3 

SDD00/4 



DAT-IN 

$0001/7 
$9liF/l 
SDD00/7 



DAT-OUT 

$0001/0 
$912C/7 
SDD00/5 
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TV, 

yA 


yy^. 







Pft&mm: BUS ROUTE 04 



11 



Eft 



6A 



:SA-3B14 



E3 10 BL-eS 
4 

C0 20 FDR L-0 TD BL^CX-S.vFOR 

0 TO 15 : READ A:CX-CX+A 
BE £S POKE 532 B0 , A : POKE SA+L*16* 

0, A; NEXT □ 
AS 30 READ ft: If fiXQ THENPRINT 

"ERROR IN LINE pr ;tM+CL*10) rST 

DP 

ID 40 NEXT L: SYS 30400 
5D 50 DATA 11,8,195,7,1^3,50,45 
t 54. 49, 0,9,0,38,113, 6,32,765 

ED 60 DATA 173,8.32 ,107,6, 173, 5 
53,0,208,3,76, 101 s 0,32. 228,2 
55, 1753 

££ 70 DATA 201,0,240,243,141,25 
2 , 5 , 72 , 152 , 1 3 . 1 42 , 1 34 , 2 , 32 , 2 
10, 255, 2113 

B0 D&TA 180,3s, 145,0,32,153, 
8, 176,251,162,6,32, 145.3, 14, 
252,1556 

5F 90 DATA 3,175,6,32,127,8,76, 
77,6,35, 135, 3, 32, 154,0,32,52 

0 

62 100 DATA 153,6,48,251,32,163 
, 0 , 1G , £51 , 232 , 20S ,223,32, 136 
,8,06, 1637 
05 110 DATA 104,501,13.200,175, 
205,253,8,240, 171,163,1.141 , 
£53,8,35,2248 
55 120 DATA 155,147,32,210,255, 
169 , G , 14 1 , 3£ , 208 , 141 , 33 , 208 , 
65, 173,0,2014 

130 DATA 221,6,32, 141,0, £21, 
55, 173,0,221,41,223,141,0,22 
1,55,1836 
CE 140 DATA 173,0,221,3,15,141, 
0,251,36, 173,0,221,41,233, 14 
1,0,1695 

150 DATA 221,36,173.0,221,20 
5,0, 221 , 208 , 248 , 10 . 66 B 173 , ® , 
221 ,41,2134 
3A 150 DATA 207,141,0,221,120,3 
2, 163 .0,40, 251 ,32,127,0,32,2 
4b B 1644 
66 170 paiA 32,136,6,162,6,32,1 
63 ,6,16^51,46, 252, 8,38, 145, 
8, 1307 

FC 180 DATA 32,246,6,32, 15*1,8,3 

2 , 245 , B , 202 , 2SB , 233 , 68 , 186 , 1 

0,141,1617 
AB 130 DATA 134,2,173,252,0,32, 

210,255,173,255.6,201,13,206 

,197,238,2356 
AB 200 DATA 253,6,75,22,8,150,1 

26,136,203,253,96,0,0,0,0,0, 

1346 

t}V 210 DATA 169,0. 133, 250, 1B9, 1 

43, 133,251,163, 1, 133, 174, 133 

, 183, 155.0,2234 
A5 220 DATA 133,175,133,134,165 

, 0 , 133 , 252 , IBB , 150 , 133, 253 , 1 

60,0, 177,250,2451 
59 530 DATA 145, 174 ,230, 250 , l?OQ 

,5,230,251,230,174,208,2,530 

, 175,165,250,2954 



B00 




EEQ 


CHKFLG 




610 


TNTURR 


L&A 


NS01 








5TA 


TLfcFLG 


; 0-l istemer / i "Talker 


BUB 




RTS 






&4S 










E50 


1NTU1D 


1 Oft 


#SS3 




560 






CHRDUT 


i CLEAiS SCREEN 


57B 




LDfl 






690 




5Tfi 


EXTCOL 




B90 




STft 


BGCDL0 


BLACK 9CREEJN AMD BORDER 


700 




RTS 






718 












D*TLD 


L&A 


Cl9PRn 




?3e 




ORP 










STA 


CieFRft 


; MAKE SERIAL LINE DATA LDUi 


i 3(P 




RTS 






j trtD 




■ 






f fV 




LDfl 


CISPRft 




7BB 




AND 


ttSDF 




fzSUt 




— 1 J- 1" 


i_i _h i — i j i n 


. MAKE SERIAL DATA LINE HI 






■&TH 






BID 




I 






828 




i_ UH 


tr 1 c r pi™ 




930 




nDA 


#31 0 




840 




cr-r-Ci 
Si" 


E j 5FRA 


jliApCE SERIAL CLOCK LINE LOW 






K J _i 


















CI. - 


i ni 

L UH 


Li 1 Crfln 




ris . ■ j 




AND 






99-0 




STA 


C I 2PJ?h 


i MAKE SERIAL CLOCK. LINE H 1 EM 


Si00 




RTS 






9L0 










550 


GETBIT 


LDh 


C IEFRA 




□30 




cnp 




■AliHftlT 9TABLE CLDCK & DATA 






BHE 


GETS IT 




950 




A5L 




; BET DATA IN ,C J CLOCK IN .N 


9£0 




RTS 






978 










9B0 


LINREL 


r.nA 


ETfFfrfl 




993 




AND 


IfSCF 




1000 




ST A 


CI3PRA 


S RELEASE DATA a CLOCK C&tiTrt HI 3 


10 Lfl 


L I5TEN 


5Ei 






1OS0- 


UiLOCLK 


JSR 


GETEIT 




1030 




EM E 


WLOCLK 


;WAIT EDR ATTENTtriN 






JSR 


UhTLD 


iSEMD ACKNDLJLEnGE 


10Sfl 




JEft 


DELAY 




1250 




JSR 


DATHI 




1070 




LDX 


#S0@ 




1.090 


UH ! CLK 


JSR 


GETQITf 




1030 




BPL 


LjJH 3 CLK 


: WAIT FDR DATA LiftLlO 


LI 00 




ROL 


BYTE 


j GET BIT 


1 L 13 




JSR 


CLKLO 


; THEN ACKNDtJLEDGE IT 


11^0 




JSR 


DELAY 




U3B 




JSR 


CLKHI 


: RELEASE CLOCK LINE 


1140 




JSR 


DELAY 




L15Q 




HEX 






11&0 




BNE 


UHilCLK 


3 HD EIGHT BITS 


1170 




CLI 






1LS0 




LEA 


»S0A 


■LIBHT l^EO T£XT 


1190 




STh 


CQLDUJ3 




1S«0 




LBA 


BYTE 








JSR 


CHROUT 


i PRINT CHAR TO SCREEN 


1920 




LtlA 


BYTE 




1330 




cup 


»SftQ 




19^0 




BNE 


LISTEN 


- IT fiTTLJHN kfy then talk 

i XT n D- J kJ r- nb 1 1 "fill Ink^ 


1550 




INC 


tLKFLB 




1E63 




JnP 


CHKELG 




1*70 












JJELAV 


LPV 


#S@0 




L53B 


U^IT 


DEY 










BNE 


yftlT 




13L0 




RTS 






13E0 




■ 






1330 


BYTE 


. H^TE *00 




1 340 


TLKFLG 


. BVTE ±00 




O-:0 


ENOCDrt 


. END 





40 24B DATA 1 B? „ 252 , 20B , 2 34 , 1 BS 

, 251 , 187 , 253 , 20a . BBB, IBB , 155 

,133, 137,163, 150 t 31SB 
7F 25^ Uf\lft 133,108.169,12,133, 

183, 153,0, 133,105, !50,e,lB5 s 

107,150,240,2147 
81 260 DATA 6,32^10,255,200,20 

8, 24S p 32 , 207 , 255 , 240 , 251 , 2S1 

,^3,240,4,2631 
2E 270 I] AT A 201 s BE , 4fl 1 230 ,41, IS 

, 133,155,75,234,245,147, i7 ? I 

7,73,78, 1797 



B9 2B0 DA-TA BiS, 0S.S4, 32, 60, 69,8 
6,73,67,68,32,70^5,77,56,03 
,1120 

43 230 DATA 82,13,17,67,60,83,5 
1,43,32,47,32,53,73,53,75,01 
T 3 08 

A A 300 DAT^ 32,56,32,78,82,32,5 
7 , 58 , 45 , 32 , 0 , 56 , 05 , 83 , 32 , BB , 
553 

82 3ltt DATA 73,05,34,88,32,54,5 
2, 0,0,0,^,255,255, 205.855,0, 
1475 



YOUR COMMODORE SERIOUS USERS GUIDE 
82 



COMMODORE 




▼ ON THE DISK ▼ 



IN THE»> 
MAGAZINE 



STRATEGIC SIMULATIONS - 
A LOOK AT THE STRATEGY 
MASTERS 

DEFINITIVE PROGRAMMING 
HOW TO SMOOTH SCROLL 
DISK ADVENTURING 
SHOOT 'EM UP 
CONSTRUCTION 
KIT REVIEWED 



DON'T GET 
GET IN ON 



COMMODORE DISK USER is a lot more than just 
another computer magazine. Every issue 
carries a diskette containing more than £30 
worth of software ranging from serious 
programming utilities to arcade games. There 
are plenty of Commodore magazines on the 
market, but we believe that this is the first to 
cater for disk users of all ages and tastes. 



UTILITIES 

DISK LIBRARIAN 
DISK MATE 
TEXT CRACKER 
NOLLIXE PAINT 
CS28 RAM DISK 



GAMES 

FIVE UP 

QUAD 

PLUS 

MICRONET 
DEMOS 



COMMODORE DISK USER is what you 
have been waiting for - take out 
a subscription TODA Y! 



A 



4 % 



% 



4j H 





SUBSCRIPTION RATES 



£15.00 for 6 issues U.K. 
£1$,00 for 6 issues EUROPE 
£1 8.20 for 6 issues MIDDLE EAST 
£19.30 for 6 issues FAR EAST 
£18.40 for 6 issues REST OF WORLD 
Airmail Subscription Rates on Request 



Send your remittance to: 
INFONET LTD., 5 River Park Estate, 
Berkhamsted, Herts. HP4 IHL. 
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